ac1016.pas

这是在网络上搜集到的在东京大学的ACM上面解决的一些题目的源码

program tju1016;
const
  maxn=100000;
var
  ans:array[4..maxn]of byte;
  f:real;
  m,i,n:longint;
begin
  f:=6;
  for i:=4 to maxn do begin
    f:=f*i;
    while f>100 do f:=f/10;
    ans[i]:=trunc(f) mod 10;
  end;
  read(m);
  for i:=1 to m do begin
    read(n);
    writeln(ans[n]);
  end;
end.