Cod sursa(job #293155)
| Utilizator |  Birsan Dragos hominidu |
Data | 31 martie 2009 23:40:07 |
|---|---|---|---|
| Problema | Factorial | Scor | 0 |
| Compilator | fpc | Status | done |
| Runda | Arhiva de probleme | Marime | 0.21 kb |
var f,g:text;
i,a:int64;
BEGIN
assign(f,'fact.in');
reset(f);
read(f,a);
close(f);
if a mod 2 = 0 then
i:=a*5
else
i:=(i-1)*5;
assign(g,'fact.out');
rewrite(g);
writeln(g,i);
close(g);
END.
