Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Nikito23
21.03.2020 22:33 •
Информатика
Решить. в заданном натуральном трехзначном числе имеется четная цифра.pascal
Показать ответ
Ответ:
Vilgam
09.07.2020 15:56
Var
n,a,b,c:integer;
begin
readln(n);
//Найдём 3 цифры
a:=n div 100;
b:=(n mod 100) div 10;
c:=n mod 10;
if (a mod 2 = 0) OR (b mod 2 = 0) OR (c mod 2 = 0) then
writeln('Есть четная цифра')
else
writeln('Нет четной цифры');
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
dashasviridenko
21.03.2021 23:10
Андрей нашел старый калькулятор. Цифры на нем еще можно было разглядеть, но названия арифметических операций оказались стерты. Андрей нажал последовательно клавиши A2 D4 C2...
дара333
17.08.2021 05:48
В приведённом коде оператор ЦЕЛОЕ создаёт переменную для хранения целочисленных значений; оператор ЛОГИЧЕСКОЕ создаёт переменную для хранения логических значений; оператор...
Sa4eR
17.08.2021 05:48
1. Вводится целое положительное число n. Выведите yes , если в данном числе есть цифра 2 и нет - в обратном случае. 2. Вводится число n. Посчитайте сумму 1^1 + 2^2 + 3^3 +...n^n...
ArtFox12
24.06.2021 04:00
5. Степень сжатия файла зависит: А) только от программы архиватораБ) только от типа файлаВ) от объема оперативной памяти персонального компьютера, на котором производится...
zora3
18.12.2022 14:55
Сложите полученные числа в модифицированном обратном и модифицированном дополнительном кодах. результат переведите в прямой код. выполните проверку сложения, используя правила...
Lusihvostfei
07.06.2022 23:15
Функция кнопки: А) регистрация файлаБ) открыть доступС) просмотр недавних действийВ) предварительный просмотрЕ) удалить документблагодарю заранее ❤️...
tashkaostrovska
30.03.2023 14:35
Теория игр. ЕГЭ Два игрока, Петя и Ваня, играют в следующую игру. Перед игроками лежат две кучи камней. Игроки ходят по очереди, первый ход делает Петя. За один ход игрок...
mihscka0605
18.11.2020 08:54
Входной файл: Стандартный вход Ограничение времени: 1 сек Выходной файл: Стандартный выход Ограничение памяти: 64 Мб Максимальный : 100 Условие Команда школьников – разработчиков...
vasiaska234
11.05.2022 11:19
Задание 2 Рассмотри таблицу. Ученик 11 класса сдает электронный тест по информатики если он набирает 6 и больше , то он проходит тест иначе он не проходит тест....
Enigma1267
18.09.2020 13:26
4. Посмотри на рисунок и ответы, для чего можно использовать фоль- гу от шоколада или зеркало? В каких ещё случаях в походе может приго- диться зеркало?...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
n,a,b,c:integer;
begin
readln(n);
//Найдём 3 цифры
a:=n div 100;
b:=(n mod 100) div 10;
c:=n mod 10;
if (a mod 2 = 0) OR (b mod 2 = 0) OR (c mod 2 = 0) then
writeln('Есть четная цифра')
else
writeln('Нет четной цифры');
end.