Дано действительное число х. Вычислить:(x-2)(x-4)(x-8)...(x-64)/(x-1)(x-3)(x-7)...(x-63)...

// PascalABC.NET

begin

var x := ReadReal('x =');

var p := 1.0;

for var i := 1 to 32 do

p *= (x - 2 * i) / (x - 2 * i + 1);

Print(p)

end.

Объяснение:

Формула, дающая нужный результат:

$p=\prod _{i=1}^{32}\frac{x-2i}{x-2i+1}$

Ввод целого х может приводить к получению нуля или бесконечности из-за попадания нуля в числитель или в знаменатель.