Cod sursa(job #60324)
Utilizator | Dani Ilinca dany_danger | Data | 13 mai 2007 18:27:56 |
---|---|---|---|
Problema | Factorial | Scor | 10 |
Compilator | fpc | Status | done |
Runda | Arhiva de probleme | Marime | 1.02 kb |
var p:longint;
function f(n:longint):longint;
var i,j,nr:longint;
begin
nr:=0;i:=5;j:=0;
if 5>n then f:=0 else
while i<=n do begin
j:=i;
while j mod 5=0 do
begin
inc(nr);
j:=j div 5;
end;
i:=i+5;
end;
f:=nr;
end;
function binar(l,r:longint):longint;
var m:longint;
begin
if l>r then binar:=-1
else
begin
m:=(l+r) div 2;
if f(m)=p then binar:=m
else if f(m)>p then binar:=binar(l,m-1)
else binar:=binar(m+1,r);
end;
end;
begin
assign(input,'fact.in');reset(input);read(p);
assign(output,'fact.out');rewrite(output);
write((binar(0,10000) div 5)*5);
end.