Информатика, опубликовано 2018-08-22 22:50:26 by Гость
Задано целое положительное число. Найдите произведение нечетных цифр числа. Если таких цифр нет, то вывести об этом сообщение
Ответ оставил Гость
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
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.
Форма вопроса доступна на