Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
камка7
03.08.2022 12:34 •
Информатика
Составьте программу в результате выполнения которой выясняется входят ли четные цифры в запись данного трехзначного числа. для паскаля
Показать ответ
Ответ:
xnxnxnxnx
30.09.2020 03:54
Var a,a1,a2,a3:integer;
begin
write('a = ');
readln(a);
a1:=a div 100;
a2:=a div 10 mod 10;
a3:=a mod 10;
if (a1 mod 2 = 0)or(a2 mod 2 = 0)or(a3 mod 2 = 0)
then writeln('В числе есть четные цифры')
else writeln('В числе нет четных цифр');
end.
Пример:
a = 519
В числе нет четных цифр
0,0
(0 оценок)
Популярные вопросы: Информатика
ЛёхаТихонов
03.02.2022 20:31
Определи порты, к которым подключены гироскопические датчики. A0B0с24DEVE100)о225531004-3550CmС.Берных ответов: 2124УВПроверить...
Nailevnaa
19.07.2021 03:53
Имеется кубик, на гранях которого цифры от 1 до 6. за сколько бросков игрок наберет более 21 очка...
KaranVahi21
04.04.2022 11:36
Потрібно написати програму у python, в якій потрібно накопичити суму чисел, що дорівнює РІВНО 100 з випадкових чисел від 1 до 10, якщо сума стає більша за 100, то починаємо...
Pollyru
05.11.2021 16:31
Перепишите предложения, составьте схемы. Объясните постановку тире. 1) Ветер подул с юга — будет дождь (Горький). 2) Его глаза никогда не смотрят просто — они все высматривают...
PabloDC
05.11.2021 16:31
Годовая контрольная. 1. найти третий Угол Треугольника, Известно что первый равен (3n + 10)° А второй в три раза больше первого. 2. Можно ли построить треугольник из...
198219821982
13.03.2022 00:24
ФИЗИКА 7 КЛАСС ЗА РЕШЕНИЕ...
lerasifr
13.03.2022 00:24
Хеелп Первое и второе задание....
никитаррр1
05.11.2021 16:31
Указать, в каких предложениях использованы наречия, в каких – СКС, в каких – краткие прилагательные среднего рода или прилагательные в сравнительной степени, в каких...
minecraftak2015
05.11.2021 16:31
Почему наследование окраски кур не подчиняется законам Менделя, докажите примерами скрещивание и опишите механизм этого наследования...
Дарья20041111
05.11.2021 16:31
1. Спрощення приголосних позначається в усіх словах рядка А пес..ливий, проїз..ний, облас..ний Б сер..це, хвас..нути, провіс..ник В гус..нути, зліс..ний, форпос..ний...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
write('a = ');
readln(a);
a1:=a div 100;
a2:=a div 10 mod 10;
a3:=a mod 10;
if (a1 mod 2 = 0)or(a2 mod 2 = 0)or(a3 mod 2 = 0)
then writeln('В числе есть четные цифры')
else writeln('В числе нет четных цифр');
end.
Пример:
a = 519
В числе нет четных цифр