> Source：
> 
> program p2000;
> var v:array[0..10000]of longint;
>     n:longint;
> 
> procedure init;
>   var i,j,k:longint;
> begin
>   fillchar(v,sizeof(v),0);
>   k:=1;i:=1;v[0]:=0;
>   while i<=10000 do begin
>     for j:=1 to k do begin
>       v[i]:=v[i-1]+k;      //这里的v[i]越界
>       inc(i);
>     end;
>     inc(k);
>   end;
> end;
> 
> begin
> //  assign(input,'input.txt');reset(input);
> //  assign(output,'output.txt');rewrite(output);
>   init;
>   readln(n);
>   while n<>0 do begin
>     writeln(n,' ',v[n]);
>     readln(n);
>   end;
> //  close(input);close(output);
> end.

• 哦~ (0) wangchen1ren 2004-12-29 20:38:17