Cod sursa(job #875097)
| Utilizator |  Fusy Wool wolly |
Data | 9 februarie 2013 18:15:38 |
|---|---|---|---|
| Problema | Factorial | Scor | 25 |
| Compilator | fpc | Status | done |
| Runda | Arhiva de probleme | Marime | 0.35 kb |
var a,b:text;
c,d,e,f,g:longint;
begin
assign(a,'fact.in');
assign(b,'fact.out');
reset(a);
rewrite(b);
readln(a,c);
repeat
begin
e:=e+1;
g:=e;
if g mod 5=0 then repeat begin d:=d+1; g:=g div 5; end; until g mod 5<>0;
if d>c then begin f:=1; break; end;
end;
until d=c;
if f=0 then
write(b,e) else write(b,'-1');
close(a);
close(b);
end.