Pagini recente » Istoria paginii runda/porc_log | Cod sursa (job #2584945) | Cod sursa (job #358650) | Cod sursa (job #2688531) | Cod sursa (job #291377)
Cod sursa(job #291377)
function fun(n:longint):longint;
var s,i,j,p:longint;
begin
s:=0;
for i:=1 to n do
begin
p:=1;
for j:=1 to i do
p:=(p*(i mod 10))mod 10;
s:=(s+p)mod 10;
end;
fun:=s;end;
var f,g:text;i,n,t:longint;
begin
assign(f,'cifra.in');reset(f);
assign(g,'cifra.out');rewrite(g);
readln(f,t);
for i:=1 to t do
begin
readln(f,n);
writeln(g,fun(n));
end;
close(f);
close(g);
end.