Thảo My Lê Phương

 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.

Kiều Vũ Linh
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ự
Nguyễn Huỳnh Khôi Nguyên
Xem chi tiết
Vy Tường_8a2
Xem chi tiết
Phương Linh Pham Thị
Xem chi tiết
Trường Nguyễn
Xem chi tiết
mẫn cuti
Xem chi tiết
Khánh Hoàng
Xem chi tiết
lam mi
Xem chi tiết
Minh Triết Nguyễn
Xem chi tiết
Nguyễn Cảnh Hùng
Xem chi tiết