Question

Viết chương trình tính tổng của n số tự nhiên đầu tiên sao cho tổng nhỏ hơn hoặc bằng 1000.

giúp mình với thứ 6 thi rồi.

Answer 1

Program hotrotinhoc_hoc24;

var i: integer;

t: longint;

begin

t:=0;

for i:=1 to 1000 do

if t=<1000 then t:=t+i else break;

write('Tong n so dau tien nho hon hoac bang 1000 la : ',t);

readln

end.