Question

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

Answer 1

// 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}$

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