USACO 3.2 Factorials阶乘(高精度)

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.