program FACtorial(output);
var
x:real;
i:integer;
begin
x:=1;
for i:=100 downto 1 do
begin
x:=x*i;
end;
writeln('100!=',x:10:1)
end.
要精确答案吗?
93326215443944152681699238856266700490715968264381621468592963895217599993229915608941463976156518286253697920827223758251185210916864000000000000000000000000
程序的话比较麻烦