用键盘输入整数S，然后计算1+2+3+…+N的和，在和未超过S(包括相等)的情况下，最大的N是多少？用pascal编程

、用键盘输入整数S，然后计算1+2+3+…+N的和，在和未超过S(包括相等)的情况下，最大的N是多少？例如S＝7，则1+2+3<7，1+2+3+4>7，则最大的N为3。
输入输出格式与样例：
输入：7
输出：3

var
s,n,sum:longint;
begin
readln(s);
n:=1;
sum:=0;
while sum<=s do
begin
sum:=sum+n;
n:=n+1;
end;
n=n-2;
writeln(n);
end.

var s,n:longin; begin readln(n);s:=0; for i:=1 to 10000000000 do begin s:=s+i; if s>n then begin writeln(i);break; end; end.

请问要的是n的值么？ 如果是的话： var s,i:integer; //先按小数据算 begin readln(s); i:=1; repeat if s-i>=0 then begin s:=s-i; inc(i); end //用做差可以代替累加 else break; //下方是死循环，该处是唯一出口 until 1=2; writeln(i-1); end.

最简单的程序，vc6通过调试运行 #include void main() { int n,i,s=0; scanf("%d",&n); for(i=1;i<=n;i++) s+=i; printf("s=%d",s); }

pascal早忘记了，给个C语言的供参考一下思路。 #include int main() { int s, sum=0, i=0; scanf("%d", &s); while(sum<=s) sum+=++i; printf("%d", i-1); return 0; }