Pagini recente » Cod sursa (job #869216) | Borderou de evaluare (job #2575088) | Cod sursa (job #1799237) | Borderou de evaluare (job #1517400) | Cod sursa (job #686285)
Cod sursa(job #686285)
var n,s,p,t:int64;
i,j,ti:integer;
f1,f2:text;
begin
assign(f1,'cifra.in');
reset(f1);
assign(f2,'cifra.out');
rewrite(f2);
readln(f1,t);
for ti:=1 to t do
begin
read(f1,n);
s:=0;
for i:=1 to n do
begin
p:=1;
for j:=1 to i do
p:=(p*i) mod 10;
s:=(s+p) mod 10;
end;
writeln(f2,s mod 10);
end;
close(f1);
close(f2);
end.