Предмет: Информатика,
автор: 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
Внимание! Если программа не работает, обновите версию!
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
Похожие вопросы
Предмет: Математика,
автор: ajlanaergalieva
Предмет: История,
автор: rav4332
Предмет: Информатика,
автор: illuha84028
Предмет: Математика,
автор: саша1796
Предмет: Биология,
автор: zebra451