Cod sursa(job #714596)
| Utilizator |  mosincat ciprian mciprian |
Data | 15 martie 2012 21:20:02 |
|---|---|---|---|
| Problema | Cifra | Scor | 0 |
| Compilator | fpc | Status | done |
| Runda | Arhiva de probleme | Marime | 0.29 kb |
var i,r,t,j,s,p,n:longint;
f,g:text;
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);s:=1;
for j:=2 to n do begin
p:=1;
for r:=1 to j do
p:=p*j;
s:=s+p;end;s:=s mod 10;writeln(g,s);;end;
close(g);close(f);end.