ac1016.pas

来自「某牛人写的acm.tongji.edu.cn上大部分ac的代码,仅供学习研究,请」· PAS 代码 · 共 21 行

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.