Cod sursa(job #278341)
| Utilizator |  Andrei Alexandru THE_GAME |
Data | 12 martie 2009 11:31:17 |
|---|---|---|---|
| Problema | Factorial | Scor | 10 |
| Compilator | fpc | Status | done |
| Runda | Arhiva de probleme | Marime | 0.35 kb |
var p,m,s,n:longint;
f,g:text;
begin
assign(f,'fact.in');
assign(g,'fact.out');
reset(f);
read(f,p);
n:=0;
while s<=p-1 do begin
n:=n+5;
m:=n;
while m div 5>0 do begin
s:=s+1;
m:=m div 5;
end;
end;
rewrite(g);
if s=p then write(g,n)
else write(g,'-1');
close(f);
close(g);
end.
