Cod sursa(job #101363)

Utilizator andumMorie Daniel Alexandru andum Data 13 noiembrie 2007 13:51:41
Problema Cifra Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.56 kb
var t,n,i:longint;
    f,g:text;
    v:array[0..120] of 0..9;
function ultima(n:longint):integer;
var u,i,j,p:longint;
begin
     u:=0;
     for i:=1 to n do begin
         p:=1;
         for j:=1 to i do
             p:=(p mod 10)*(i mod 10);
     u:=(u mod 10)+(p mod 10);
  end;
  ultima:=u mod 10;
end;

begin
 assign(f,'cifra.in');
 assign(g,'cifra.out');
 reset(f);
 rewrite(g);
 for i:=0 to 100 do
     v[i]:=ultima(i);
 Readln(f,t);
 For i:=1 to t do
 begin
     readln(f,n);
     writeln(g,v[n]);
 end;
 close(f);
 close(g);
end.