Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
Ришат12
03.05.2020 00:55 •
Информатика
1) с клавиатуры вводится трёхзначное число. нужно вывести ответ «да», если все его цифры четные, и ответ «нет» в остальных случаях.
Показать ответ
Ответ:
Лера9814
15.09.2020 19:19
Var
a,b,c,d:integer;
begin
writeln('Введите трехзначное число: ');readln(a);
b:= a div 100;
c:= a mod 100 div 10;
d:= a mod 10;
if (b mod 2 = 0)and(c mod 2 = 0)and(d mod 2 = 0)
then writeln('yes')
else writeln('no');
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
натали200652
30.03.2021 05:23
Дан целочисленный двумерный массив размерности n×m. Вывести его элементы, индексы которых являются степенями двойками в паскале! Желательно с комментариями, в интернете ничего...
saenkolydmila
08.08.2022 16:48
Запиши число 15661 в развёрнутом виде, начиная со старшего разряда...
Фрао
04.06.2023 00:40
1. Определите истинность записи следующих переменных и обоснуйте очень...
vikacatcatcat
09.04.2020 13:17
Определите минимальное время, за которое будет передан файл размером 6 Мб по витой паре в локальной сети...
AnutaBelova1524
19.09.2021 09:45
Визначте використовуючи текстовий редактор блокнот, довжину двійкового коду повідомлення- ( практична робота № 1) за умови,що повідомлення закодоване з використанням таблиці...
Alina182004
11.07.2022 22:25
Для какого из указанных значений числа X истинно выражение (X∙X 7) \/ (X = 1) (X 4) ?...
0ForeverUnicorn0
08.11.2021 02:08
Сестра братишки-шалунишки в октябре ежедневно записывает показания температур в дневник наблюдений.Однажды братишка-шалунишка сделал в записях температур небольшие исправления,...
Полинаhelpme1
01.10.2020 22:50
Найдите длину отрезка в концы которого упираются ножки циркуля измерителя длиной 15 см, если они образуют угол 30 градусов...
daravill1
01.10.2020 22:50
Кто решит тому дарю ! -в электрички ехали 3015 пассажиров.на первой остановке вышли 72 пассажиров и вошли 93 пассажира,на второй остановке вышли 54 пассажира и вошёл 21 пассажир.сколько...
MiaDakota
01.10.2020 22:50
Жанры легкой музыки и жанры тяжелой музыки...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
a,b,c,d:integer;
begin
writeln('Введите трехзначное число: ');readln(a);
b:= a div 100;
c:= a mod 100 div 10;
d:= a mod 10;
if (b mod 2 = 0)and(c mod 2 = 0)and(d mod 2 = 0)
then writeln('yes')
else writeln('no');
end.