1乘到1000怎么编程

用PAS

var
a:array[0..1000] of integer;
i,j,m,jw: integer;
t,s:longint;
begin
j:=1;
a[j]:=1;
for i:= 1 to 1000 do begin
jw:=0;
for m:= 1 to j do begin
t:=a[m]*i+jw;
jw:=t div 10000;
a[m]:=t mod 10000;
end;
if jw>0 then begin
j:=j+1;
a[j]:=jw;
end;
end;
for i:= j downto 1 do
if a[i]>0 then write(a[i]) else write('0000');

writeln;
readln;
end.

long i,j j=0 for i=1 to 1000 j=j+i next messagebox('结果',string(j)) 弹出一个messagebox, 显示的就是结果了。 太简单了，确实应该打pp!