Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
настячччч
25.12.2021 04:16 •
Информатика
Составить программу на языке паскаль составить программу разветвляющей структуры написать прогрумму, которая проверяет, является ли введенное с клавиатуры число четным и положительным
Показать ответ
Ответ:
kolbasko001
07.10.2020 12:36
Var a:integer;
begin
read(a);
if a mod 2=0 then writeln('Число четное')
else writeln('Число нечетное')
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
89670198045
18.03.2023 04:51
может ли компьютер обрабатывать данные если в его памети нет програм...
Arina4dyuzhova
15.12.2022 02:31
1. Васины одноклассники поспорили, кто из них знает самые длинные слова. Чтобы никто не подглядывал, они подходят к Васе и шепчут по два длинных слова ему на ухо. Вася записывает...
hdjeugwcwtixuvbekz
11.11.2020 22:36
Несжатое растровое изображение размером 256 х 258 пикселей занимает 32 Кб памяти. Каково максимально возможное число цветов в палитре изображения?...
Natalia1097
07.01.2021 11:10
1) Дано целое число N ( 1), а также первый член A и разность D арифметической прогрессии. Сформировать и вывести массив размера N, содержащий N первых членов данной прогрессии:...
VaNyOkToP
18.12.2021 06:33
Какое значение получит переменная y после выполнения алгоритма? x:=5y:=5∗xy:=y+5y:=y∗xy:=y+6y:=y∗xy:=y+7...
Madina07152005
16.09.2021 03:38
Напишите определение автозаполнение в приложении MS Excel...
LIMON4IKBRO
26.12.2021 18:29
Вопросы и задания 3 1. Определите, что выведет этот фрагмент программы для списка на Рис. 1: m = A[-1] for i in range(4) : if A[i] m : m = A[i] print(m) 2. Напишите программу,...
ДЕСПАСИТТО58
27.03.2021 16:50
а) какую функцию необходимо применить в ячейке Н16 для расчета средней зароботной платы в колективе ?...
odolskij2016
02.09.2021 06:21
Вырази в миллиметрах и нарисуй графические модели 2см 5мм, 2дм 5мм, 2дм 5см,Не пишите ответы...
iPHONee12
20.08.2021 21:02
Грамматическая основа предложения: Это ваш порядок, и его менять нельзя....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
read(a);
if a mod 2=0 then writeln('Число четное')
else writeln('Число нечетное')
end.