Cod sursa(job #291130)
| Utilizator |  Andrici Cezar andrici_cezar |
Data | 29 martie 2009 14:03:47 |
|---|---|---|---|
| Problema | Factorial | Scor | 0 |
| Compilator | fpc | Status | done |
| Runda | Arhiva de probleme | Marime | 0.35 kb |
var n,i,nr0,tmp: longint;
f,g:text;
begin
assign(f,'fact.in');reset(f);
assign(g,'fact.out');rewrite(g);
read(f,n);
i := 5;
while (i<=n) do
begin
nr0 := 0;
tmp := i;
while (tmp > 0) do
begin
nr0 := nr0 + tmp div 5;
tmp := tmp div 5;
end;
if (nr0 = n)
writeln(g,i)
else
writeln(g,-1);
end;
end.