Cod sursa(job #219557)
| Utilizator |  alexandru catalisan basketbalistu92 |
Data | 7 noiembrie 2008 13:24:31 |
|---|---|---|---|
| Problema | Factorial | Scor | 5 |
| 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=0 then write(g,-1)
else write(g,p*5-5*(p div 5-1));
close(f); close(g);
end.
