Chương trình đơn giản

TA

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 ạ

NT
20 tháng 12 2020 lúc 21:10

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.

Bình luận (0)

Các câu hỏi tương tự
TB
Xem chi tiết
VN
Xem chi tiết
HL
Xem chi tiết
LT
Xem chi tiết
AT
Xem chi tiết
NT
Xem chi tiết
TK
Xem chi tiết
TA
Xem chi tiết
NA
Xem chi tiết