Cod sursa(job #507841)

Utilizator x3medima17Dima Savva x3medima17 Data 6 decembrie 2010 22:23:16
Problema Cifra Scor 0
Compilator fpc Status done
Runda Concursul 17 Marime 0.46 kb

var a,k,r:real;
i,j,n,t,m:longint;
s:string;
f,g:text;
function fa(q:real): real ; begin

 // for i:=1 to j do  begin
        fa:=exp(q*Ln(q));


    //    end;


end;
begin
assign(f,'cifra.in');
reset(f);
assign(g,'cifra.out');
rewrite(g) ;
readln(f,t);
for i:=1 to t do begin
read(f,n);
a:=0;
for j:=1 to n do begin
r:=fa(j);
 a:=a+r;
end;
m:=round(a);
str(m,s) ;

   writeln(g,s[length(s)]);

end;

  close(f);
  close(g);

end.