Cod sursa(job #1450786)
| Utilizator |  Boiu Stefan stefsenior |
Data | 14 iunie 2015 18:16:44 |
|---|---|---|---|
| Problema | Factorial | Scor | 5 |
| Compilator | fpc | Status | done |
| Runda | Arhiva de probleme | Marime | 0.26 kb |
program fact;
var f,h:text;
p,n,m: int64;
begin
assign(f,'fact.in'); reset(f); readln(f,p); close(f);
m:=1; while m<=p do m:=m*5;
if (p<=0)and(m=p) then n:=-1 else n:=p*5;
assign(h,'fact.out'); rewrite(h); writeln(h,n);
close(h);
end.
