Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài

Những câu hỏi liên quan
Lâm Khả Doanh
Xem chi tiết
Nguyễn Lê Phước Thịnh
28 tháng 2 2023 lúc 22:28

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.

Lê Chiêu Nguyên	Vũ
4 tháng 4 2023 lúc 10:21

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.

nuinuini
Xem chi tiết
Nguyễn Hoàng Hà
Xem chi tiết
Thu Hằng
14 tháng 3 2022 lúc 20:09

var n,i,s:longint; begin write('nhap so n=');readln(n); s:=0; for i:=1 to n do s:=s+i; writeln(' tong n so nguyen la:',s); readln; end.

Nguyễn Lê Phước Thịnh
15 tháng 3 2022 lúc 20:47

Câu 1: 

#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+=i;

cout<<s;

return 0;

}

Mạc Kỳ Nhi
Xem chi tiết
level max
Xem chi tiết
Tryechun🥶
8 tháng 3 2022 lúc 18:52

tham khảo

 

Var i ,n : integer;

S , T : real;

Begin

write ('n=') ; read (n) ;

S:= 0;

T:= 1;

For i:= 1 to n do

S:= S + i;

T:= T * i;

Writeln (' Tong cua ' ,n,' so dau tien la' , S );

Writeln (' Tich của ' ,n,' so dau tien la' , T );

Readln;

End.

Nguyễn Lê Phước Thịnh
8 tháng 3 2022 lúc 22:59

#include <bits/stdc++.h>

using namespace std;

long long i,n,t;

int main()

{

cin>>n;

t=0;

for (i=1; i<=n; i++) t+=i;

cout<<t;

return 0;

}

Ung Tấn Thảo
Xem chi tiết
Nguyễn Lê Phước Thịnh
8 tháng 4 2021 lúc 7:30

Uses crt;

Var i,t,n:integer;

Begin

Clrscr;

Write('n='); readln(n);

T:=0;

For i:=1 to 2*n do

If i mod 2=1 then t:=t+i;

Writeln(t);

Readln;

End.

Ung Tấn Thảo
8 tháng 4 2021 lúc 7:07

Giải giúp mk với mai mk thể rồi mk cảm ơn nhiều

Uses crt;

Var i,t,n:integer;

Begin

Clrscr;

Write('n='); readln(n);

T:=0;

For i:=1 to 2*n do

If i mod 2=1 then t:=t+i;

Writeln(t);

Readln;

End.

Như Ý
Xem chi tiết
Phía sau một cô gái
1 tháng 5 2023 lúc 19:27

Câu 1:

program Tinhtong:

var

     n, i, sum: integer;

begin

     write('Nhap n: ');

     readln(n);

     sum := 0;

     for i := 2 to n do

     begin

          if i mod 2 = 0 then

          begin

               sum := sum + i;

          end;

     end;

     writeln('Tong cac so chan tu 2 toi ', n, ' la ', sum);

     readln; 

end.

Câu 2:

program Tinhtong:

var

     n, i, sum: integer;

begin

     write('Nhap n: ');

     readln(n);

     sum := 0;

     for i := 1 to n do

     begin

          if i mod 2 = 1 then

          begin

               sum := sum + i;

          end;

     end;

     writeln('Tong cac so le tu 1 toi ', n, ' la ', sum);

     readln;

end.

Lê Minh Hiếu
Xem chi tiết
Minh Lệ
20 tháng 4 2023 lúc 9:31

loading...  

Minh Nguyệt Điêu
Xem chi tiết
Kiều Vũ Linh
8 tháng 2 2023 lúc 9:46

var i,n,so:integer;

s:longint;

begin

write('Nhap N = ');readln(n);

for i:=1 to n do

begin

write('Nhap so thu ',i,' = ');readln(so);

s:=s+so;

end;

write('Tong la ',s);

readln;

end.