Предмет: Информатика, автор: kysav

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

Ответы

Автор ответа: Аноним
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
Похожие вопросы
Предмет: История, автор: rav4332
Предмет: Информатика, автор: illuha84028
Предмет: Биология, автор: zebra451