DA

Viết chương trình tính cộng 1+2+3...+n

H9
6 tháng 2 2023 lúc 16:14

Uses crt;

var i,n: integer;   a: longint;

begin clrscr;

write('Nhap so n: '); readln(n);

a:=0;

for i:=1 to n do a:=a+i;

writeln(' Tong: ',a);

readln;

end. 

 

Bình luận (0)

Các câu hỏi tương tự
NT
Xem chi tiết
H24
Xem chi tiết
NT
Xem chi tiết
NU
Xem chi tiết
TP
Xem chi tiết
PT
Xem chi tiết
H24
Xem chi tiết
ML
Xem chi tiết
DA
Xem chi tiết
HN
Xem chi tiết