Войти
Регистрация
Спроси ai-bota
В
Все
Х
Химия
В
Видео-ответы
А
Алгебра
Г
Геометрия
О
ОБЖ
Д
Другие предметы
У
Українська література
Р
Русский язык
Б
Беларуская мова
У
Українська мова
Э
Экономика
Ф
Физика
М
Математика
Ф
Французский язык
Г
География
И
Информатика
М
МХК
О
Окружающий мир
П
Психология
Н
Немецкий язык
О
Обществознание
П
Право
И
История
М
Музыка
Л
Литература
Қ
Қазақ тiлi
Б
Биология
А
Английский язык
Показать больше
Показать меньше
Сателла1
26.05.2023 10:48 •
Информатика
Определите,является ли данное число четным или нечетным ( написать в pascal )
Ответ:
ed77714
01.07.2020 23:46
var a: integer;
begin
read(a);
if a mod 2 = 0 then write ('Чётное')
else write ('Нечётное');
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
gudroonnp010ou
02.03.2022 14:50
Книжка містить 150 ст. на кожній ст. 40 рядків. у кожному рядку 60 символів. знайти: довжину двійкового коду. для кодування використати біт....
adubnovitskaj
12.08.2021 08:26
Повiдомлення займае 3 сторiнки й мае довжину двiйкового коду 7950 байт.визначте, скiльки рядкiв на сторiнцi, якщо в кожному рядку 25 символiв i використане кодування unicode....
MARCOM03
12.10.2021 03:23
Вкорзине лежат красные и черные клубки шерсти .красных клубков 6 . сообщение о том ,что достали черный клубок , несет 2бита информации . сколько всего клубков в корзине?...
365282n
04.10.2021 22:22
Вчём разница между вставкой и удалением строки...
shildebaev01
01.01.2023 02:09
Посмотрите на карту Определите На каких из были нарушены правила технической безопасности поставьте знак X на не правильно положить положение и знак правильный на правильном пути...
dkhairov1993
04.03.2022 03:04
(2/7)^(-2) это дробью и все в минус 2...
оля2044
04.03.2022 03:04
Составьте предложения с обобщающими словами: каждый, всегда, приметы осени, слезы бывают разные...
Spin4ik
04.03.2022 03:04
Для 2 класса нужно написать о своих список спортивных рекордах? (ребёнок не спортивный)...
nutswai
04.03.2022 03:04
Порядок появи жінок в житті радченка...
san4ez77
05.04.2021 06:20
Запишите вывод, восполнив пропуски: любовь к составляет смысл существования героя. разорвётся - оборвётся жизнь. именно поэтому поэт использует эпитет «».тихая моя родина...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
var a: integer;
begin
read(a);
if a mod 2 = 0 then write ('Чётное')
else write ('Нечётное');
end.