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

Tran Anh

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 ạ

Nguyễn Lê Phước Thịnh
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ự
Thái Bảo
Xem chi tiết
Vân Ngô
Xem chi tiết
Hoàng lĩnh
Xem chi tiết
Lê Thị Bảo Trâm
Xem chi tiết
Anh Thư
Xem chi tiết
Nguyễn Thị Tươi
Xem chi tiết
Trần Vi Nam Khánh
Xem chi tiết
Tran Anh
Xem chi tiết
Nam Phạm An
Xem chi tiết