Cod sursa(job #991531)
Utilizator | Data | 30 august 2013 18:31:32 | |
---|---|---|---|
Problema | Cifra | Scor | 0 |
Compilator | fpc | Status | done |
Runda | Arhiva de probleme | Marime | 0.41 kb |
program cifra;
var
c:array[1..30000] of integer;
srez:string;
rez:real ;
f1,f2:text;
t,i,z:integer;
begin
assign(f1,'cifra.in');
reset(f1);
readln(f1,t);
assign(f2,'cifra.out');
rewrite(f2);
for i :=1 to t do
begin
rez:=0;
readln(f1,c[i]);
for z:=1 to c[i] do
rez:=rez+exp(ln(z)*z);
str(rez:0:0,srez);
writeln(f2,srez[Length(srez)]);
end;
close(f1);
close(f2);
end.