求 S=1+2+3+4+5+6+……+N 的值大于2007的N最小值及S的值

来源：百度知道 编辑：UC知道 时间：2024/05/10 08:03:10
要完整的Free Pascal语言编程

var s,n:integer;
begin
s:=0;
n:=0;
while s<=2007 do
begin
n:=n+1;
s:=s+n;
end;
write(n,' ',s);
emd.

program abc;
var
s,n:integer;
begin
s:=0;
n:=0;
while s<=2007 do
begin
n:=n+1;
s:=s+n;
end;
writeln(n);
writeln(s);
end.

var i,s:longint;
begin
while s<2007 do
begin
s:=s+i;
i:=i+1;
end;
writeln(i-1,' ',s);
end.