Pagini recente » Cod sursa (job #1083150) | Cod sursa (job #1782297) | Cod sursa (job #1860232) | Cod sursa (job #1785484) | Cod sursa (job #264574)
Cod sursa(job #264574)
program Cifra;
var f,x:text;
t:word;
n,i,j,c:longint;
p:longint;
uf:byte;
Begin
assign(f,'cifra.in'); reset(f);
assign(x,'cifra.out'); rewrite(x);
readln(f,t);
for i:=1 to t do begin
readln(f,n);
uf:=0;
for j:=1 to n do begin
p:=1;
for c:=1 to j do
p:=p*j;
uf:=(uf+p mod 10) mod 10;
end;
writeln(x,uf);
end;
close(f); close(x);
end.