Cod sursa(job #216193)
| Utilizator |  FMI - Dan Moldovan MDan |
Data | 23 octombrie 2008 10:31:27 |
|---|---|---|---|
| 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.