Pagini recente » Cod sursa (job #84780) | Cod sursa (job #2243060) | Cod sursa (job #2634) | Cod sursa (job #2718659) | Cod sursa (job #344746)
Cod sursa(job #344746)
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; n:=trunc(s) mod 10;
writeln(g,trunc(n));s:=0;
end;
close(f);
close(g);
end.