Question

С клавиатуры вводится последовательность чисел до тех пор, пока не будет введено число 0. Требуется найти произведение нечетных чисел из введенной последовательности. Решение с помощью while, подробно.

Answer 1

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.