求2至1000中的完数。
计算s=1×2×3...×100
不要书中答案求大神告诉我程序急急急！！

1)
var i:longint;
begin
for i:=2 to 100 do
if sqr(i)=trunc(sqr(i)) then write(i,' ');
end.

2)要用高精度，懒得编了，都是很水的题，建议楼主如果是新手可以找高精度标程看看。

var
a:array [0..200] of longint;
i,j,t:longint;
begin
a[0]:=1;
a[1]:=1;
for i:=1 to 100 do
begin
t:=0;
for j:=1 to a[0] do
begin
a[j]:=a[j]*i+t;
t:=a[j] div 10;
a[j]:=a[j] mod 10;
end;
while t>0 do
begin
inc(a[0]);
a[a[0]]:=t mod 10;
t:=t div 10;
end;
end;
for i:=a[0] downto 1 do write(a[i]);
end.