Pagini recente » Cod sursa (job #979477) | Cod sursa (job #521952) | Cod sursa (job #501570) | Cod sursa (job #1785932) | Cod sursa (job #353061)
Cod sursa(job #353061)
program p7646;
var f,g:text;t,r,q:longint;
v:array[1..5000]of 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;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,v[q]);
r:=cifra(v[q]);writeln(g,r); end;
close(f);close(g);
end.