羽化成龙:精确计算100的阶乘的程序

来源:百度文库 编辑:高考问答 时间:2024/04/28 21:10:38
要求用C/C++程序设计

要精确答案吗?
93326215443944152681699238856266700490715968264381621468592963895217599993229915608941463976156518286253697920827223758251185210916864000000000000000000000000
程序的话比较麻烦

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.