Question

viết chương trình tính n số tự nhiên biết tổng không lớn hơn 3500

Answer 1

uses crt;

var n,t:integer;

begin

clrscr;

n:=0;

t:=0;

while t<=3500 do 

  begin

n:=n+1;

t:=t+n;

end;

writeln(t-n);

readln;

end.