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

// 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.

Объяснение:

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

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

2*3=6

512*128*6=393216

393216: 1024=384кб

5`120`000 бит =  640 000 байт = 625 кб