作业帮高精度阶乘（pascal）【题目】数学上定义: n!=1×2×3×...×(n-1)×n (N>0) 0!=1 若用integer型数据表示阶乘,最多可到7!,用Longint类型也只能到12! 要求输入正整数n,求 n! 的精确表示
来源：学生作业帮助网 编辑：作业帮 时间：2024/05/05 02:27:19
高精度阶乘（pascal）【题目】数学上定义: n!=1×2×3×...×(n-1)×n (N>0) 0!=1 若用integer型数据表示阶乘,最多可到7!,用Longint类型也只能到12! 要求输入正整数n,求 n! 的精确表示
高精度阶乘（pascal）
【题目】数学上定义:
n!=1×2×3×...×(n-1)×n (N>0)
0!=1
若用integer型数据表示阶乘,最多可到7!,用Longint类型也只能到12!
要求输入正整数n,求 n! 的精确表示
高精度阶乘（pascal）【题目】数学上定义: n!=1×2×3×...×(n-1)×n (N>0) 0!=1 若用integer型数据表示阶乘,最多可到7!,用Longint类型也只能到12! 要求输入正整数n,求 n! 的精确表示
var a:array[1..10000] of integer;
b,c,d,t,x:integer;
begin
readln (x);
if (x=10 then if (t=d) then d:=d+1; {假如最后一位乘时有}
{进位,则总位数加1}
a[t]:=a[t] mod 10;
inc (t); {数组下一位}
until (t>d); {直到乘完数组的每一位数字}
end;
write (x,'!=');
for t:=d downto 1 do write (a[t]); {输出}
end.