Cod sursa(job #301861)

Utilizator theocmtAxenie Theodor theocmt Data 8 aprilie 2009 14:55:05
Problema Cifra Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.55 kb
var t,n,i,j,s,k,q:longint;
    f,g:text;
begin
     assign(f,'cifra.in');
     assign(g,'cifra.out');
     reset(f);
     rewrite(g);
     readln(f,t);
     for i:=1 to t do
         begin
              readln(f,n);
              s:=0;
              for j:=1 to n do
                  begin
                       q:=1;
                       for k:=1 to j do q:=q*j;
                       s:=s+q;
                       s:=s mod 10;
                  end;
              writeln(g,s);
         end;
     close(f);
     close(g);
end.