Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
соникна
13.05.2023 16:06 •
Информатика
Задано натуральное число а. является ли оно чётным ? решите ,используя функцию int
Показать ответ
Ответ:
t751975
07.07.2020 16:19
Var n:integer;
begin
readln(n);
if int(n/2)=n/2 then writeln('Четное') else writeln('Нечетное')
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
ГКПС
24.05.2021 12:01
Решите задачи по информатике нужно полностью написать программы...
КоШкА2016
10.03.2020 19:09
Определите, какое из указанных ниже имён файлов удовлетворяет маске: ?ger*.??* 1) triger.olo; 2) 1gerdos.api; 3) gerr.msi; 4) 3lgerf.doc. Символ ? (во знак означает ровно один...
ДашаКаськова
17.03.2022 00:56
Задача 3. Найти ошибки в программе (объяснить причину ошибки) c, b =map (int, input (). split())a=C+dprint(a)...
Нияз170406
11.09.2022 23:32
1. Чертёжнику был дан для исполнения следующий алгоритм: Повтори 4 раз Сместиться на (–2, –1) Сместиться на (3, 2) Сместиться на (2, 1) Конец Какую единственную команду надо...
timur123123
07.02.2021 05:33
Если первый ученик за 1ч может собрать M ведер яблок, 2-й — Кведер, 3-й L ведер, то сколько ведеряблок они соберут за t часов?...
Eka228
20.06.2020 13:45
Написать программу для вычисления y и z значения...
karma228cska
11.08.2020 08:04
Решите задание на картинке....
AlinaAok
03.03.2023 18:46
Для какого из указанных значений x истинно высказывание (принимает значение -1)...
Katteerina25
16.03.2021 18:48
Скласти програму для виведення назви дня тижня словом, за введеним номером дня. Python...
gggggguuu
07.12.2022 22:45
сделать трассировку программы. var a, sum, npos, nneg: integer; begin sum := 0; npos := 0; nneg := 0; readln(a); while a 0 do begin sum := sum + a; if (a 0) then nneg := nneg...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
readln(n);
if int(n/2)=n/2 then writeln('Четное') else writeln('Нечетное')
end.