Cod sursa(job #219561)
| Utilizator |  alexandru catalisan basketbalistu92 |
Data | 7 noiembrie 2008 13:40:18 |
|---|---|---|---|
| Problema | Factorial | Scor | 10 |
| Compilator | fpc | Status | done |
| Runda | Arhiva de probleme | Marime | 0.22 kb |
program factorial;
var p:integer;
f,g:text;
begin
assign(f,'fact.in'); reset(f); readln(f,p);
assign(g,'fact.out'); rewrite(g);
if p<5 then write(g,p*5)
else write(g,p*5-5*(p div 5-1));
close(f); close(g);
end.
