没有 可以给你一个pascal的程序
programme js(input,output)
var
S:real
i:integer
begin
S = 1;
for i=1 to 100 do
S = S*i;
write(S);
end