Pagini recente » Cod sursa (job #2065524) | Cod sursa (job #2652869) | Cod sursa (job #1071134) | Cod sursa (job #2740281) | Cod sursa (job #56545)
Cod sursa(job #56545)
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.