Question

Hãy nhập n số và tính tổng sao cho tổng không vượt quá 1000.

Giúp mik với ạ!

Answer 1

uses crt;

var n,t:integer;

begin

clrscr;

t:=0; n:=1;

while t<=1000 do

begin

t:=t+n;

n:=n+1;

end;

writeln(t);

readln;

end.