Cod sursa(job #22025)
| Utilizator |  udrea cosmin cosmyudrea |
Data | 25 februarie 2007 14:02:55 |
|---|---|---|---|
| Problema | Cifra | Scor | 0 |
| Compilator | fpc | Status | done |
| Runda | Arhiva de probleme | Marime | 0.33 kb |
program cifra;
var i,j,t,n,z:longint;
s,m:real;
f,g:text;
begin
assign (f,'cifra.in');
assign (g,'cifra.out');
reset (f);
read (f,t);
rewrite (g);
for i:=1 to t do
begin
read (f,n);
s:=0;
for j:=1 to n do
begin
m:=j;
s:=s+exp(m*ln(m));
end;
z:=round(s) mod 10;
writeln (g,z);
end;
close (f);
close (g);
end.
