Cod sursa(job #216191)
| Utilizator |  FMI - Dan Moldovan MDan |
Data | 23 octombrie 2008 10:20:58 |
|---|---|---|---|
| Problema | Factorial | Scor | 5 |
| Compilator | fpc | Status | done |
| Runda | Arhiva de probleme | Marime | 0.19 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);
close(input);
close(output);
End.