Cod sursa(job #736856)

Utilizator serjlSerj Lungu serjl Data 19 aprilie 2012 11:48:06
Problema Cifra Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.37 kb
var t,i,n,j,k,q : longint;
            f,g : text;
begin
 assign(f,'cifra.in');
 assign(g,'cifra.out');
 rewrite(g);
 reset(f);
 read(f,t);
 readln(f);
 for i:=1 to t do
  begin
   k:=0;
   read(f,n);
   readln(f);
    k:=0;
    for j:=1 to n do
    k:=k+round(exp(j*ln(j)));
   k:=k;
   q:=k mod 10;
   writeln(g,q);
   end;
 close(f);
 close(g);
end.