Cod sursa(job #455333)

Utilizator memaxMaxim Smith memax Data 13 mai 2010 15:41:10
Problema Cifra Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.35 kb
Raporteaza aceasta sursa 
Program cifra;
var j,i,t:integer;
    f,g:text;

function ult(n:integer):integer;
begin
if n=1 then ult:=1 else
ult:=round(exp(n*ln(n))+ult(n-1));
end;

begin
assign(f, 'cifra.in');  reset(f);
assign(g, 'cifra.out'); rewrite(g);
readln(f, t);
for i:=1 to t do begin
readln(f, j);
writeln(g, ult(j) mod 10);
end;
close(f); close(g);
end.