Cod sursa(job #482913)
| Utilizator |  Marin Tiberiu tibi9876 |
Data | 6 septembrie 2010 09:11:31 |
|---|---|---|---|
| Problema | Factorial | Scor | 35 |
| Compilator | fpc | Status | done |
| Runda | Arhiva de probleme | Marime | 0.31 kb |
var p,x,i,c:longint;
begin
assign(input,'fact.in');
reset(input);
assign(output,'fact.out');
rewrite(output);
readln(p);
x:=0;
if p=0 then begin write(1); halt; end;
while i<p do
begin
x:=x+5;
c:=x;
while c mod 5=0 do
begin
c:=c div 5;
inc(i);
end;
end;
if i>p then write('-1') else
write(x);
end.