Cod sursa(job #200802)
Utilizator | Data | 26 iulie 2008 17:06:52 | |
---|---|---|---|
Problema | Factorial | Scor | 35 |
Compilator | fpc | Status | done |
Runda | Arhiva de probleme | Marime | 0.62 kb |
var f,g:text;
j,p,i,nr:longint;
begin
assign(f,'fact.in'); reset(f);
assign(g,'fact.out'); rewrite(g);
readln(f,p);
i:=0; nr:=0;
if p=0
then writeln(g,'1')
else
begin
while nr<p do
begin
inc(i,5); j:=i;
while i mod 5=0 do
begin
inc(nr);
i:=i div 5;
end;
i:=j;
end;
if nr=p then writeln(g,i) else writeln(g,'-1');
end;
close(f); close(g);
end.