Question

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

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

giúp mình vs

Answer 3

cho đến khi được tổng đầu tiên lớn hơn 2000 thì ngừng đúng không?