Saok
6 год назад
с клавиатуры вводится последовательность чисел до тех пор пока не будет введено число 0 требуется найти произведение нечетных чисел из введенной последовательности
ОТВЕТЫ
Владислав
Oct 24, 2020
Var
A:integer;
P:real;
Begin
P:=1;
Repeat
Read(A);
if A mod 2 <> 0 then P:=P*A;
Until A=0;
WriteLn('Произведение нечётных чисел: ',P);
End.
A:integer;
P:real;
Begin
P:=1;
Repeat
Read(A);
if A mod 2 <> 0 then P:=P*A;
Until A=0;
WriteLn('Произведение нечётных чисел: ',P);
End.
781
Смежные вопросы:
