usaco 3.2 fact4 2008.7.18

最新推荐文章于 2022-01-20 12:27:35 发布

Batman_

最新推荐文章于 2022-01-20 12:27:35 发布

阅读量330

点赞数

分类专栏： USACO

本文链接：https://blog.csdn.net/Batman_/article/details/50637399

版权

USACO 专栏收录该内容

47 篇文章 0 订阅

订阅专栏

usaco 3.2 fact4 2008.7.18

{

ID:

PROG: fact4

LANG: PASCAL

}

program p_fact4;
const fin='fact4.in';fout='fact4.out';
var n,sum,p,i,nn,n2,n5:longint;
      f1,f2:text;
begin
     assign(f1,fin);reset(f1);assign(f2,fout);rewrite(f2);
     sum:=1;read(f1,n);
     if n<=10 then begin
                         for i:=2 to n do
                           sum:=sum*i;
                        while sum mod 10=0 do sum:=sum div 10;
                        sum:=sum mod 10;
                          end
                          else
                          begin
                           nn:=0;
                            for i:=5 to n do
                              begin
                                 p:=i;
                                 while(p mod 5=0) do begin inc(nn);p:=p div 5;end;
                              end;
                            n2:=0;n5:=0;
                            for i:=2 to n do
                               begin
                                 p:=i;
                                 while (p mod 2=0)and(n2<>nn)do begin inc(n2);p:=p div 2;end;
                                 while (p mod 5=0)and(n5<>nn)do begin inc(n5);p:=p div 5;end;
                                 sum:=(sum*p) mod 10;
                               end;
                          end;
    writeln(f2,sum);
    close(f1);
    close(f2);
    end.