Pagini recente » Cod sursa (job #1531134) | Cod sursa (job #1911745) | Cod sursa (job #382969) | Cod sursa (job #1573375) | Cod sursa (job #282753)
Cod sursa(job #282753)
program factorial;
const v:array[1..15] of int64=(5,25,125,625,3125,15625,78125,390625,1953125,9765625,48828125,244140625,1220703125,6103515625,30517578125);
var n,p,j,aux,zero:int64;
begin
assign(input,'fact.in');
reset(input);
read(input,p);
close(input);
n:=0; zero:=0;
repeat
n:=n+5;
aux:=2;
while n mod v[aux]=0 do inc(aux);
zero:=zero+aux-1;
until zero>=p;
if p=0 then n:=1;
if zero>p then n:=-1;
assign(output,'fact.out');
rewrite(output);
write(output,n);
close(output);
end.