Войти
Регистрация
Спроси ai-bota
В
Все
У
Українська література
Г
Геометрия
Д
Другие предметы
Э
Экономика
Г
География
О
ОБЖ
М
Математика
М
МХК
Х
Химия
Қ
Қазақ тiлi
Л
Литература
У
Українська мова
О
Обществознание
Ф
Физика
А
Английский язык
А
Алгебра
И
История
Б
Беларуская мова
Б
Биология
М
Музыка
П
Право
И
Информатика
П
Психология
В
Видео-ответы
Н
Немецкий язык
Ф
Французский язык
О
Окружающий мир
Р
Русский язык
Показать больше
Показать меньше
rud5001
08.12.2021 09:59 •
Информатика
Даны два числа а, в, определить какое из чисел чётное. и вывести на экран (if) !
Ответ:
mukaseevdaniil1
10.09.2020 16:52
Var
a, b:longint;
begin
read(a, b) ;
if ((a mod 2)=0) then
write(a)
else
write(b) ;
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
zhenyadobr
03.03.2020 23:08
Найти минимальное натуральное число,которое при делении на 2 дает в остатке 1,при делении на 3 дает в остатке2,при делении на 4 дает в остатке 3,при делении на 5 дает в остатке 4,при...
hollok
05.12.2020 21:05
Переведите целые числа из десятичной системы в двоичную б) 600...
влад2314
05.12.2020 21:05
Сообщение о том,что угадано число несет 5 битов информации. в каком диапазоне было загадано число? , !...
ViktoriyaFomina1
03.02.2023 13:12
Закончи предложение: «Любое словесное высказывание, напечатанное, написанное или существующее в устной форме называется…» 1. Фраза 2. Текст 3. Слово 4. Диалог...
yakuninvitalii
16.03.2023 09:37
система исполнителя черепаха...
Alekseimiller
10.08.2020 17:47
Что делать если шрифт букв чёрный на винду xp?...
MariaGraf
22.02.2021 12:47
Для записи сообщения используются 32 символов алфавит каждая страница содержит 30 строк все сообщении содержат 8775 байт и занимает 6 строк сколько символов в строке ?...
Rogonova
22.09.2020 17:06
Задан массив из 19 случайных чисел из промежутка от -20 до 20.вывести элементы массива в строку, а во вторую строку в обратном порядке....
regionagustin
22.09.2020 17:06
Закодируйте с таблицы ascii: а) excel б) access в) windows...
elvira127
22.09.2020 17:06
Перевести надо. 16 бит в байты 4 байта в бит...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
a, b:longint;
begin
read(a, b) ;
if ((a mod 2)=0) then
write(a)
else
write(b) ;
end.