Pagini recente » Cod sursa (job #2887744) | Cod sursa (job #2481277) | Istoria paginii runda/leiten | Cod sursa (job #1635686) | Cod sursa (job #991533)
Cod sursa(job #991533)
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.