Cod sursa(job #345873)
Utilizator | Oprea Valeriu-Florin FLORINSTELISTU | Data | 5 septembrie 2009 12:15:30 |
---|---|---|---|
Problema | Cifra | Scor | 0 |
Compilator | fpc | Status | done |
Runda | Arhiva de probleme | Marime | 0.44 kb |
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.