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

AnonimkaNya AnonimkaNya    3   25.09.2019 17:50    2

Ответы
elnerfaiq elnerfaiq  08.10.2020 18:59
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
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика