[artem2010]

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

80. Дано действительное число x. Вычислить
3 5 7 9 11 13
x-x /3!+x /5!-x /7!+x /9!-x /11!+x /13!

[lmikle]

82:

Код:

Result := 1;
For I := 1 To 64 Do
  If (I mod 2) = 0 Then Result := Result * (x-I) Else Result := Result / (x-I);

80: Сделаешь сам. Тебе нужен цикл с шагом 2 от 3 до 13. Т.е. While с ручным счетчиком. Факториал тоже не самый сложный метод расчета.

[artem2010]

понял спасибо