Cod sursa(job #163324)
Utilizator | Canta Andrei andreicanta | Data | 21 martie 2008 23:07:02 |
---|---|---|---|
Problema | Factorial | Scor | 5 |
Compilator | fpc | Status | done |
Runda | Arhiva de probleme | Marime | 0.42 kb |
var pu,p:longint;
f:text;
procedure func(nr:longint);
var n,r,i:longint;
begin
r:=0;
pu:=5;
while nr div pu>0 do
begin
inc(r,nr div pu);
pu := pu * 5;
end;
if r < p then
func(nr-5)
else if r = p then
write(nr);
end;
begin
assign(f,'fact.in');reset(f);
read(f,p);
assign(f,'fact.out');rewrite(f);
if p=0 then
write(f,1)
else
func(p*5);
close(f);
end.