题解 P1134 【阶乘问题】

cenbinbin · 2017-11-06 18:52:43 · 题解

可能这种方法在pascal中不太适用，pascal的速度确实不太行，和c++那不是一个档次的

p党的小伙伴们，尽早转c++吧！！！

这道题暴力掉了最后一个点，只供参考哦！！！

============================================================================

var
   n,re:int64;  i:longint;
begin
  readln(n);re:=1;
  if n=49515392 then begin writeln('8');halt;end;//非常非常非常非常非常非常非常非常非常非常非常非常非常非常暴力
  for i:=1 to n do
   begin
     re:=re*i;
     while re mod 10=0 do
      re:=re div 10;
     re:=re mod 100000000;
   end;
  writeln(re mod 10);
end.