Cod sursa(job #189577)
Utilizator | Data | 15 mai 2008 19:50:23 | |
---|---|---|---|
Problema | Factorial | Scor | 0 |
Compilator | fpc | Status | done |
Runda | Arhiva de probleme | Marime | 0.25 kb |
var f,g:text;
p,i,x,p0:longint;
ok:boolean;
begin
assign(f,'factorial.in');reset(f);
assign(g,'factorial.out');rewrite(g);
readln(f,p);
if p=0 then writeln(g,0)else if p<10
then writeln(g,p*5)
else writeln(g,(p-1)*5);
close(G);
end.