Pagini recente » Cod sursa (job #1111905) | Cod sursa (job #1578810) | Cod sursa (job #1975312) | Cod sursa (job #568219) | Cod sursa (job #344316)
Cod sursa(job #344316)
program cifra;
var i,t,j,h:integer;f,g:text;n,s,p:real;
begin
assign(f,'cifra.in');reset(f);
assign(g,'cifra.out');rewrite(g);
readln(f,t);h:=1;
for h:=h to t do begin
readln(f,n); i:=1;
for i:=i to trunc(n) do begin
p:=1; j:=1;
for j:=j to i do p:=trunc(p*i);
s:=trunc(p+s);
n:=n-1;
end;
writeln(g,trunc(s) mod 10);s:=0;
end;
close(f);
close(g);
end.