Question

viết chương trình tìm số tự nhiên n lớn nhất để tổng 1+2+3+..n< 1000.<cần gấp SOS:((((>

Answer 1

Var s,i:integer;

Begin

s:=0;

i:=0;

While S<1000 do

Begin

i:=i+1;

s:=s+i;

End;

Write('n la ',i);

Readln;

End.