tính tổng S= 1+2+3+....+n, biết n là số nguyên dương được nhập từ bàn phím
giúp em ới ạ
K
Khách
Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
Những câu hỏi liên quan
28 tháng 2 2023
1:
uses crt;
var n,i,t:integer;
begin
clrscr;
readln(n);
t:=0;
for i:=1 to n do
t:=t+i*i;
write(t);
readln;
end.
4 tháng 4 2023
2
program bt2;
var i,n,t:integer;
begin
readln(n);
s:=0;
for i:=1 to n do
if i mod 2 = 1 then s:=s+i;
readln;
end.
19 tháng 12 2021
#include <bits/stdc++.h>
using namespace std;
long long n,i,t;
int main()
{
cin>>n;
t=0;
for (i=1; i<=n; i++)
if (i%2==0) t=t+i;
cout<<t;
return 0;
}
14 tháng 3 2023
n = int(input())
if n % 2 != 0:
n -= 1
so_so_hang = (n - 2) // 2 + 1
print((n + 2)*so_so_hang // 2)
H9
HT.Phong (9A5)
CTVHS
24 tháng 3 2023
int main()
{
int n;
long s;
s=0;
i=1;
printf("\nSo n la: ");
scanf("%d",&n);
for(int i=1; i<=n; i++)
{
s=s+i;
}
printf("\nTổng %d là %ld: ", n, s);
}
H9
HT.Phong (9A5)
CTVHS
13 tháng 3 2023
Uses crt;
var i,n,y: integer;
begin clrscr;
readln(n);
for i:=1 to n do s:=i*i;
Writeln(s);
readln;
end.
2 tháng 1 2022
c:
#include <bits/stdc++.h>
using namespace std;
long long ln,i,n,x;
int main()
{
cin>>n;
ln=LLONG_MIN;
for (i=1; i<=n; i++)
{
cin>>x;
ln=max(ln,x);
}
cout<<ln;
return 0;
}
7 tháng 5 2021
Sửa đề: S=1/1+1/2+1/3+...+1/n
uses crt;
var n,i:integer;
s:real;
begin
clrscr;
write('Nhap n='); readln(n);
s:=0;
for i:=1 to n do
s:=s+1/i;
writeln(s:4:2);
readln;
end.
4 tháng 4 2023
program tong;
uses crt;
var n,i:integer;
t:longint;
begin
clrscr;
write('nhap n:'); readln(n);
t:=0;
for i:=1 to n do
t:=t+1/i;
writeln(t);
readln;
end.
H9
HT.Phong (9A5)
CTVHS
18 tháng 3 2023
Uses crt;
var n,i,s: integer;
begin clrscr;
readln(n);
for i:=1 to n do s:=s+1/i;
writeln(s);
readln;
end.
18 tháng 1 2022
#include <bits/stdc++.h>
using namespace std;
long long n,i,s;
int main()
{
cin>>n;
s=0;
for (i=1; i<=n; i++) s=s+i*i;
cout<<s;
return 0;
}
KV
19 tháng 1 2022
Var s,i,n:longint;
Begin
Write('Nhap so luong so n = ');readln(n);
For i:=1 to n do
s:=s+i*i;
Write('Tong la ',s);
Readln;
End.
uses crt;
var n,i,s:integer;
begin
clrscr;
repeat
write('Nhap n='); readln(n);
until n>0;
s:=0;
for i:=1 to n do
s:=s+i;
writeln('Ket qua la: ',s);
readln;
end.