Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
ashkon
19.07.2021 11:52 •
Информатика
Напишите программу на pascal! является ли сумма трех чисел четным числом?
Показать ответ
Ответ:
Oclahoma
06.10.2020 18:45
Program sum;
var a, b, c : integer;
begin writeln('Введите три числа:');
readln(a, b, c);
if ((a+b+c) mod 2) = 0
then writeln('Сумма введенных чисел четная')
else writeln('Сумма введенных чисел нечетная');
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Mrmr56
08.03.2020 11:29
Запишите число 23435,3 в экспоненциальной форме....
наташа608
12.05.2022 21:54
Два робота решили разделить между собой 12 одинаковых процессоров. Каждому из них должен достаться хотя бы один из процессоров. Сколько существует разных разделить...
BRB987
23.01.2022 02:16
Как в исполнителе Черепаха сделать этот алгоритм...
даша3474
24.02.2021 04:02
с информатикой. Контрольная...
vorobyv2004
16.03.2022 00:02
Какие возможности появления пк? мини-доклад...
fedosovsemen
16.08.2022 04:10
Уисполнителя калькулятор две команды: умножь на 6, подели на 2. первая из них увеличивает число на экране в 6 раз, вторая – уменьшает его в 2 раза. программа для калькулятора...
demirooova
22.09.2022 20:39
Напишите программу паскаль для : 1)найти сумму и произведение натурального ряда от 1 до 10. 2)дано натурально число n.вычислить 2 в n степени. 3)дано натуральное число...
lizismik15
29.08.2021 21:34
Буду ! 1. считая, что каждый символ кодируется 2 байтами, определите, чему равен информационный объём (в битах) следующего высказывания г. лейбница: есть хорошие подарки,...
vovaonuchko
01.12.2021 01:30
Напишите функцию function reverse (n: integer): integer (pascal), которая переставляет цифры числа в обратном порядке ....
moaariishkkaa
29.05.2022 11:44
Логическая функция f задаётся выражением (a ∨ ¬c) ∧ (b ∨ c). определите, какому столбцу таблицы истинности функции f соответствует каждая из переменных a, b, c. ? ?...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var a, b, c : integer;
begin writeln('Введите три числа:');
readln(a, b, c);
if ((a+b+c) mod 2) = 0
then writeln('Сумма введенных чисел четная')
else writeln('Сумма введенных чисел нечетная');
end.