Cod sursa(job #269997)
| Utilizator |  Andrei Alexandru THE_GAME |
Data | 3 martie 2009 17:48:19 |
|---|---|---|---|
| Problema | Cifra | Scor | 0 |
| Compilator | fpc | Status | done |
| Runda | Arhiva de probleme | Marime | 0.26 kb |
var c,n,s,j,i:integer;
f,g:text;
begin
assign(f,'cifra.in');
assign(g,'cifra.out');
reset(f);
read(f,n);
for i:=1 to n do begin
s:=1;
for j:=1 to i do s:=s*i;
c:=c+s;
c:=c mod 10;
end;
rewrite(g);
write(g,c);
close(f);
close(g);
end.