Pagini recente » Profil PavelRazvan | Cod sursa (job #874448) | Cod sursa (job #318218) | Cod sursa (job #1886414) | Cod sursa (job #56544)
Cod sursa(job #56544)
program cifra;
var n,t,j,x,i,k,suma,s:longint;
f,g:text;
begin
assign (f,'cifra.in');
reset (f);
assign (g,'cifra.out');
rewrite (g);
read(f,t);
for x:=1 to t do
begin
read (f,n);
s:=1;
suma:=0;
for i:=1 to n do
begin
s:=1;
k:=i;
for j:=1 to i do
begin
s:=s*k;
s:=s mod 10;
end;
suma:=s+suma;
suma:=suma mod 10;
end;
writeln (g,suma);
end;
close (f);
close (g);
end.