Question

[Tran Phương]

Viết chương trình tính tổng n số tự nhiên cho đến khi S<= 2000 thì dừng.

Answer 1

[Nguyễn Diệu Anh]

program tong_so_tu_nhien;

uses crt;

var a,i,s: longint;

begin

clrscr;

s:= 0;

while s<=2000 do begin

writeln('nhap so n: '); readln(n);

s:= s+n;

writeln('tong la: ',s); end;

readln

end.

Mình chạy chương trình rồi! Làm đúng đó nên bạn tham khảo nhé! Chúc bạn học tốt!

Answer 2

[Tran Phương]

giúp mình vs