Cod sursa(job #359289)
Utilizator | Data | 26 octombrie 2009 15:10:19 | |
---|---|---|---|
Problema | Cifra | Scor | 0 |
Compilator | fpc | Status | done |
Runda | Arhiva de probleme | Marime | 0.37 kb |
var d,n,t,u,s,i,j,h:longint;
f,g:text;
begin
assign(f,'cifra.in');reset(f);
assign(g,'cifra.out');rewrite(g);
read(f,t);
for i:=1 to t do begin read(f,n);
s:=0;
for j:=1 to n do begin d:=1;
for h:=1 to j do
d:=d*j;
s:=s+d;
end;u:=s mod 10;writeln(g,u);
end;
writeln(g);
close(f);
close(g);
end.