С клавиатуры вводится произвольное натуральное число. Найти произведение нечётных цифр...

Question

С клавиатуры вводится произвольное натуральное число. Найти произведение нечётных цифр числа. Помогите срочно прошу !!!!!

Answer 1

PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!

begin
  var n:=ReadInteger('n=');
  var p:=1;
  while n>0 do begin
    var d:=n mod 10;
    if d.IsOdd then p*=d;
    n:=n div 10
    end;
  Writeln('Произведение нечетных цифр числа равно ',p)
end.

Пример
n= 53892
Произведение нечетных цифр числа равно 135