Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
omarova4
11.01.2023 00:07 •
Информатика
Задано целое положительное число. найдите произведение нечетных цифр числа. если таких цифр нет, то вывести об этом сообщение
Показать ответ
Ответ:
Вова1337228
05.10.2020 10:00
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
0,0
(0 оценок)
Популярные вопросы: Информатика
olzhabekzhazira
31.05.2022 16:32
Основным объектом для хранения информации в реляционных базах данных является: отчётформаза таблица...
lkivaka
05.05.2021 05:18
Дана функция: y={x+1 при x 0 {x-2 при x 0 1.запишите условие if для вычисления условия функции...
ричбич4
10.10.2022 05:46
Программа basic шестой класс рисунок журавля...
Sheik077
20.05.2020 04:08
Придумать числовое выражение 6 действий и составить к нему дерево вычислений...
Vikanigmatulina
09.09.2020 14:12
ПРООООООММОООГГИИТТЕЕЕ...
dmitry113114
27.11.2021 21:15
За заданными сторонами прямоугольника a и b вычислите его периметр и площадь .в паскаль....
SofyaIlina
03.04.2023 06:29
Дві сторони трикутника мають довжини 6 м та 10 м, причому кут між ними гострий. площа даного трикутника дорівнює 18 м2. знайти третю сторону трикутника....
klevchuk71p06srz
03.04.2023 06:29
34 . надо написать письмо другу о москве где побывал и хочешь побывать в презент перфект/там надо написать письмо на другу о москве где побывал и хочешь побывать используя present...
marinka02jkjk
03.04.2023 06:29
Катионы или анионы? mg2+,o2-,k+,h+, s2-,f-,al3+,n3-...
аньён1
03.04.2023 06:29
1)49-3(3-2z)≤1-4z 2)-0,5(8x+9)-0,9 4x-3 решите неравенства....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
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