Cod sursa(job #879272)
Utilizator | Data | 15 februarie 2013 10:35:21 | |
---|---|---|---|
Problema | Cifra | Scor | 0 |
Compilator | fpc | Status | done |
Runda | Arhiva de probleme | Marime | 0.42 kb |
var f,g:text;
i,t,n,k,s,j,copie:integer;
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:=0;j:=0;
repeat
j:=j+1; copie:=j;
for k:=2 to j do copie:=copie*j;
s:=s+copie;
until j=n;
writeln(g,s mod 10);
end;
close(f);close(g);
end.