Nguyễn Huỳnh Khôi Nguyên

VIết CHươNG TRình PaSCAL sỬ dỤNG vÒNG lẶP lẶP while...do ĐỂ tÍNH tỔNG s=1+2+3+...+n Với n lÀ sỐ nguyÊn được nhẬP tỪ bÀN phÍM

Nguyễn Lê Phước Thịnh
1 tháng 5 2021 lúc 19:39

uses crt;

var n,i,s:integer;

begin

clrscr;

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

s:=0;

i:=1;

while i<=n do 

  begin

s:=s+i;

inc(i);

end;

writeln(s);

readln;

end.

Bình luận (0)
Nguyễn Huỳnh Khôi Nguyên
3 tháng 5 2021 lúc 11:37

ae nào giúp mình với ạ'

 

Bình luận (0)

Các câu hỏi tương tự
Trường Nguyễn
Xem chi tiết
Hoàng Hải Bình
Xem chi tiết
Vy Tường_8a2
Xem chi tiết
neon
Xem chi tiết
Khánh Hoàng
Xem chi tiết
Sóc Trăng Chi nhánh
Xem chi tiết
Khánh Hoàng
Xem chi tiết
Thảo My Lê Phương
Xem chi tiết
Nguyễn Thuận
Xem chi tiết