Задано целое положительное число. Найдите произведение нечетных цифр числа. Если таких цифр нет, то вывести об этом сообщение

Question

Информатика

Маланьюшка

31 января, 04:21

Задано целое положительное число. Найдите произведение нечетных цифр числа. Если таких цифр нет, то вывести об этом сообщение

+2

Ответы (1)

Знаете ответ на вопрос?

Валерьян · Answer 1

Var n, p:integer; f:boolean;

begin

write ('n = ') ;

readln (n) ;

p:=1;

f:=false;

while n>0 do

begin

if n mod 2=1

then begin p:=p * (n mod 10) ; f:=true; end;

n:=n div 10;

end;

if f then writeln ('p = ', p) else writeln ('В числе нет нечетных цифр') ;

end.

Пример:

n = 14538

p = 15