Составить программу вычисления произведения 10 элементо ряда P=1×3×5... (2×i-1)

Составить программу вычисления произведения 10 элементо ряда P=1×3×5... (2×i-1)
Гость
Ответ(ы) на вопрос:
Гость
Var A:integer; P:real; Begin P:=1; For A:= 1 to 10 do     P:=P*(2*A-1); WriteLn('P = ',P) End.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы