Pagini recente » Cod sursa (job #835478) | Cod sursa (job #308271) | Cod sursa (job #2171893) | Cod sursa (job #2511917) | Cod sursa (job #123632)
Cod sursa(job #123632)
program cifra;
var N,T,S,r : real;
i,k : integer;
V : array [1..100] of real;
fin,fout : text;
begin
writeln;
assign(fin,'cifra.in');
reset(fin);
readln(fin,T);
assign(fout,'cifra.out');
rewrite(fout);
for i := 1 to round(T) do begin
read(fin,N);
S := 0;
for i := 1 to round(N) do begin
r := 1;
for k := 1 to i do begin
r := r*i;
r := frac(r/10)*10;
end;
S := frac((S+r)/10)*10;
end;
writeln(fout,S:1:0);
end;
close(fin);
close(fout);
end.