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

Question

Рустя

10 февраля, 17:45

+4

Ответы (1)

Знаете ответ на вопрос?

Вонифатий · Answer 1

Var

A:integer;

P:real;

Begin

P:=1;

For A: = 1 to 10 do

P:=P * (2*A-1) ;

WriteLn ('P = ', P)

End.

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