С клавиатуры вводится последовательность чисел до тех пор, пока не будет введено число 0. Требуется найти произведение нечетных чисел из введенной последовательности. Решение с помощью while, подробно.
С клавиатуры вводится последовательность чисел до тех пор, пока не будет введено число 0. Требуется найти произведение нечетных чисел из введенной последовательности. Решение с помощью while, подробно.
Гость
Ответ(ы) на вопрос:
Гостьvar
a,p: integer;
begin
p:=1;
a:=1;
while a<>0 do begin
write('Введите a:');readln(a);
if a mod 2<> 0 then p:=p*a;
end;
writeln('произведение нечетных: ',p);
end.
Не нашли ответ?
Похожие вопросы