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

Где i-порядковый номер элемента. (Паскаль)

Question

Митя

13 октября, 16:43

+1

Ответы (1)

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

Тина · Answer 1

Var

i:integer;

P:real;

Begin

P:=1;

For i: = 1 to 10 do

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

WriteLn ('P = ', P)

End.

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