Cod sursa(job #561364)
Utilizator | Data | 19 martie 2011 22:50:47 | |
---|---|---|---|
Problema | Cifra | Scor | 0 |
Compilator | fpc | Status | done |
Runda | Arhiva de probleme | Marime | 0.41 kb |
program szamol;
var n,t,i,j,c,b,s,hatv:word;
f,g:text;
begin
assign(f,'cifra.in'); assign(g,'cifra.out');
reset(f); rewrite(g);
readln(f,t);
for i:=1 to t do
begin
s:=0;
readln(f,n);
for j:=1 to n do
begin
hatv:=1;
for c:=1 to j do
hatv:=hatv*j;
s:=s+hatv;
end;
b:=s mod 10;
writeln(g,b);
end;
close(f); close(g);
end.