Cod sursa(job #216188)
| Utilizator |  FMI - Dan Moldovan MDan |
Data | 23 octombrie 2008 10:07:01 |
|---|---|---|---|
| Problema | Factorial | Scor | 0 |
| Compilator | fpc | Status | done |
| Runda | Arhiva de probleme | Marime | 0.16 kb |
Var p:longint;
Begin
Assign (input,'fact.in');
Assign (output,'fact.out');
reset(input);
rewrite (output);
Readln (p);
Writeln ((p - p div 5 +1)+5);
End.