Pagini recente » Istoria paginii problema/rectangles | Cod sursa (job #3037483) | Diferente pentru problema/sate intre reviziile 11 si 12 | Diferente pentru problema/stergeri intre reviziile 3 si 6 | Cod sursa (job #345872)
Cod sursa(job #345872)
program cifra;
var i,t,j,h:integer;f,g:text;n,p,s:longint;
begin
assign(f,'cifra.in');reset(f);
assign(g,'cifra.out');rewrite(g);
readln(f,t);h:=1;
for h:=h to t do begin
readln(f,n); i:=1;
for i:=i to n do begin
p:=1; j:=1;
for j:=j to i do p:=(p*i) mod 10;
s:=p+s;
n:=n-1;
end; n:=s mod 10;
writeln(g,n);s:=0;
end;
close(f);
close(g);
end.