Cod sursa(job #28854)
| Utilizator |  Serban Andrei Stan savim |
Data | 8 martie 2007 13:20:49 |
|---|---|---|---|
| Problema | Factorial | Scor | 25 |
| Compilator | fpc | Status | done |
| Runda | Arhiva de probleme | Marime | 0.34 kb |
var p,i,n5,n,c:longint;
f1,f2:text;
begin
assign(f1,'fact.in');
assign(f2,'fact.out');
reset(f1);
rewrite(f2);
readln(f1,p);
n:=0;n5:=0;
repeat
n:=n+1;
c:=n;
while c mod 5=0 do
begin
c:=c div 5;
n5:=n5+1;
end;
until n5>=p;
if n5>p then writeln(f2,'-1')
else writeln(f2,n);
close(f1);
close(f2);
end.