Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
yurafenchishin
07.04.2021 02:17 •
Информатика
Паскаль, ввести трёхзначное число если сумма цифр числа чётная, то увеличить на 2, в противном случае уменьшить на 2
Показать ответ
Ответ:
KeKoLolist
02.07.2020 10:18
Program I_have_got_name;
var a:integer;
begin
write('Введите целое число');
readln(a);
if ((a mod 10)+(a mod 100 div 10)+(a div 100)) mod 2 = 0 then
writeln(a+2) else
Writeln(a-2);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
gritana
25.05.2022 02:08
Решите . 1. статья, набранная с компьютера, содержит 71 страницу. на каждой странице – 35 строк. в каждой строе – 50 символов. каков объем информации в статье в кб? 2....
RzhevskayaL
04.10.2022 21:19
Переменная a объявлена и ее значение равно результату выражения 667 минус 13 переменная b объявлена и ее значение на 101 больше значения переменной a переменная c объявлена...
LetMaria
21.05.2023 18:11
Выполнить по карточкам: перевести десятичное число в двоичную систему счисления, выполнить сложение, записывая числа в прямом и дополнительных кодах. условие: x=a+b, где...
lyba228337ggg
29.03.2022 12:09
Разработать алгоритм и программу для вычисления среднего арифметического любых указанных строки или столбца двумерного массива размером [n×m]. значения n и m должны вводиться...
fofanz
08.02.2022 03:23
это ивт,Это это это ваше ПРАВО...
PandaVo
12.01.2020 01:29
Вкаком объеме воды надо растворить 27 г кристаллической соды чтобы получить 10 % раствор?...
мальвінка1
13.04.2021 09:23
15 причин прочитать евгения онегина...
Деструктивный
22.04.2020 08:59
Сравните строение гладкой мышечной ткани (животной клетки) и спирогира (растительной клетки) сделайте вывод. на картинке подпишите их основные части...
kristyaaanikol
23.05.2023 00:42
Look at the diagram above and tell the class how we hear.record your monologue.start like this sound travels in wwaves...
ggggeorgiyggg
06.11.2022 12:35
Етістіктің бұйрық рай жұрнактарын дұрыс жалған, жікіс. ( жекеше, көпше) бол, көр...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var a:integer;
begin
write('Введите целое число');
readln(a);
if ((a mod 10)+(a mod 100 div 10)+(a div 100)) mod 2 = 0 then
writeln(a+2) else
Writeln(a-2);
end.