ac1016.pas

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

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.