TP

 Sử dụng câu lệnh While .. do để viết chương trình tính tổng: S = 1+2+3+…+n . Trong đó n là số nguyên nhập từ bàn phím.

KL
29 tháng 3 2022 lúc 8:33

var i,n,s:integer;

begin

write('nhap n = ');readln(n);

i:=1;

while i<=n do

begin

s:=s+i;

i:=i+1;

end;

write('Tong la ',s);

readln;

end.

Bình luận (0)

Các câu hỏi tương tự
NN
Xem chi tiết
VT
Xem chi tiết
PT
Xem chi tiết
TN
Xem chi tiết
MC
Xem chi tiết
KH
Xem chi tiết
LM
Xem chi tiết
MN
Xem chi tiết
NH
Xem chi tiết