Question

tính tổng dãy số 1,2...N cho đến khi tổng lớn hơn 600

Answer 1

uses crt;

var n,i,t:integer;

begin

clrscr;

n:=0;

i:=0; t:=0;

repeat

i:=i+1;

t:=t+i;

until t>600;

write(i);

write(t);

readln;

end.