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

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

Задать свой вопрос
1 ответ
Var n,p:integer; f:boolean;
begin
write('n = ');
readln(n);
p:=1;
f:=false;
while ngt;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
Борис Крутояров
Спасибо!)
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт