Опубликовано 22.08.2017 по предмету Информатика от Гость >> <<

С клавиатуры вводится последовательность чисел до тех пор, пока не будет введено число 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.