ac1095.pas

同济大学 Online在线题库 AC源代码合集 程序设计竞赛必看资料

program tju1095;
const
  maxn=100;
  tail:array[0..9]of byte=(6,6,2,6,4,4,4,8,4,6);
var
  a:array[0..maxn]of byte;
  i,l,five,ans:byte;
  s:string;
begin
  repeat
    readln(s);l:=length(s);
    for i:=0 to l-1 do
      a[i]:=ord(s[l-i])-48;
    repeat dec(l);until (l=0) or (a[l]>0);

    ans:=1;five:=0;
    while (l>0) or (a[l]>1) do begin
      ans:=ans*tail[a[0]] mod 10;
      for i:=l downto 1 do begin
        inc(a[i-1],a[i] mod 5*10);
        a[i]:=a[i] div 5;
      end;
      a[0]:=a[0] div 5;
      if (l>0) and (a[l]=0) then dec(l);
      five:=(five+a[1]*10+a[0]) mod 4;
    end;
    for i:=1 to five do
      ans:=ans*8 mod 10;
    writeln(ans);
  until seekeof;
end.