Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Soto350
08.03.2022 06:15 •
Информатика
Паскаль, ввести трёхзначное число если сумма цифр числа чётная, то увеличить на 2, в противном случае уменьшить на 2
Показать ответ
Ответ:
Valeria0710
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 оценок)
Популярные вопросы: Информатика
sonsan108
07.06.2023 21:47
4. Опишите последовательность создания трехмерной модели конуса в программе...
MrShkololo
31.03.2023 09:54
Вторая цифра шестнадцатеричного четырехзначного числа равна пяти. первую цифру переставили в конец числа. полученное число оказалось на 3f1b(16 cистеме счисления)меньше...
naila79
03.07.2020 12:33
)выберите правильный вариант. 1) where will you go/are you going tomorrow night? nowhere. we are free. 2) “why are you putting your coat on? ” -” i will go out/ i m going...
aydansuper12
08.04.2022 19:22
Кто сможет написать деловое письмо ,если ответят скину в течении 10 минут)...
ayazhka2
08.04.2022 19:22
Моя комната. эссе букавально 8 10 предложения...
AENabatov
08.04.2022 19:22
Сколько cr2o3 вступило в реакцию при получении 21,4 г nacro2 cr2o3 + na2co3 - na2cro2+ co2...
Haroojul
08.04.2022 19:22
На доске написано 88 различных натуральных чисел, больших 1000. их сумма равна 999 999. сережа прибавил к каждому числу число, образованное его тремя последними цифрами....
Додоша18
08.04.2022 19:22
Начерти отрезок ab заданной длиной отметь точки c и d ab равны 15 см и 4 мм ac равны 8 см и 2 мм cd равны 3 см и 7 мм чему равна длина db...
vitalinaegorova
08.04.2022 19:22
7. answer the questions using answers. 1) ls he 2) are they 3) ls he a 4) ls it a 5) ls she a 6) are they...
Ivan21101
08.04.2022 19:22
Вычислите значение производной функции y=(8x²+10x+15)², при x=5...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.