Pagini recente » Cod sursa (job #1795187) | Cod sursa (job #3146513) | Cod sursa (job #2675711) | Cod sursa (job #1717377) | Cod sursa (job #211369)
Cod sursa(job #211369)
program cifra;
var t,i,j,k,s,p:integer;
a:array[1..100] of integer;
f,g:text;
begin
assign(f,'cifre.in');
reset(f);
assign(g,'cifre.out');
rewrite(g);
readln(f,t);
for i:=1 to t do
readln(f,a[i]);
for i:=1 to t do
begin
s:=0;
for j:=1 to a[i] do
begin
p:=1;
for k:=1 to j do
p:=p*j mod 10;
s:=s+p mod 10;
end;
writeln(g,s mod 10);
end;
close(f);
close(g);
end.