USACO 3.2 Factorials阶乘 (数学)
Description
N的阶乘写作N!表示小于等于N的所有正整数的乘积。
阶乘会很快的变大，如13!就必须用32位整数类型来存储，70！即使用浮点数也存不下了。
你的任务是找到阶乘最后面的非零位。举个例子:
5!=1*2*3*4*5=120所以5!的最后面的非零位是2
7！=1*2*3*4*5*6*7=5040，所以最后面的非零位是4
Input
共一行，一个整数不大于4,220的整数N。
Output
共一行，输出N!最后面的非零位。
分析：高精度求n！，只要保留最后2000位。
代码
const
maxn=2000;
var
a,b:array[1..maxn] of longint;
n:longint;
procedure init;
begin
read(n);
a[maxn]:=1;
b[maxn]:=1;
end;
procedure mul(x:longint);
var
g,s,i:longint;
begin
g:=0;
for i:=maxn downto 1 do
begin
s:=a[i]*x+g;
g:=s div 10;
a[i]:=s mod 10;
end;
end;
procedure main;
var
i:longint;
begin
for i:=1 to n do
mul(i);
end;
procedure print;
var
i,j:longint;
begin
j:=maxn;
while a[j]=0 do dec(j);
writeln(a[j]);
end;
begin
init;
main;
print;
end.