Anna
5 год назад
Составить программу вычисления произведения 10 элементо ряда P=1×3×5... (2×i-1)
ОТВЕТЫ
Gavriil
Oct 24, 2020
Var
A:integer;
P:real;
Begin
P:=1;
For A:= 1 to 10 do
P:=P*(2*A-1);
WriteLn('P = ',P)
End.
A:integer;
P:real;
Begin
P:=1;
For A:= 1 to 10 do
P:=P*(2*A-1);
WriteLn('P = ',P)
End.
629
Смежные вопросы:
