Cod sursa(job #991533)

Utilizator niculojnicu loj niculoj Data 30 august 2013 18:31:52
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.