program soHoanHao;
uses crt;
const n=1000;
var i,s,k : integer;
begin
s:=0;
for k:=1 to 1000 begin
for i:=1 to n-1 do
begin
s:=s+i;
if s = k then writeln(s);
if s > k then break; {bạn nên cho cái break vào, chương trình sẽ chạy nhanh hơn với N rất lớn, 1000000 chẳng hạn}
end;
end;
readln;
end;
|