Pagini recente » Cod sursa (job #2059019) | Cod sursa (job #171585) | Cod sursa (job #136776) | Cod sursa (job #1163952) | Cod sursa (job #353065)
Cod sursa(job #353065)
program p7646;
var f,g:text;t,r,q,n:longint;
function cifra(m:longint):longint;
var s,p,i,j:longint;
begin
s:=1;p:=0;
for i:=1 to m do begin
s:=i;
for j:=1 to i-1 do
s:=s*i;
p:=p+s mod 10;end;cifra:=p mod 10;end;
begin
assign(f,'cifra.in');reset(f);
assign(g,'cifra.out');rewrite(g);
readln(f,t);
for q:=1 to t do begin readln(f,n);
r:=cifra(n);writeln(g,r); end;
close(f);close(g);
end.