Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
алишер128
10.05.2023 13:14 •
Информатика
Вводится число. если оно четное, то прибавить к нему 5 и вывести ответ. если нечетное, то вычесть из него 10 и вывести ответ.
Показать ответ
Ответ:
niktikhonov19
04.10.2020 16:19
Var
a:integer;
begin
write('Введите число: ');
readln(a);
if a mod 2 = 0 then begin
writeln('Число четное... прибавляем 5');
a:= a+5; end
else begin
writeln('Число нечетное... вычитаем 10');
a:=a-10;
end;
writeln(a);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
KrIsTaLLiK16
30.04.2020 03:04
Розписати формулу з математичного виду на вид MS Excel для її вирішення, використовуючи формулу «ЕСЛИ»:...
maryclarly
03.03.2022 01:34
Вам нужно закодировать методом Хаффмана сообщение АБАГБББАВАБВ. В качестве ответа предоставьте длины кодовых слов для каждой буквы. Например, если кодовое слово для буквы А=01100,...
малинка188
11.07.2020 02:26
3. В одной из кодировок Unicode каждый символ кодируется 16 битами. Вова написал текот (в нём нет пних пробелов): «Заяц, волк, хорёк, суслик, лама, медведь, гиена, аллигатор Дикие...
Шарарашка090
16.06.2020 00:02
1. Какие значения может принимать целая переменная Y,если в программе записано:Y:=10+random(5)? 2. Используя функцию random(x),получите числа в диапазонах:от 1 до 10,от -10 до +10,от...
СомСоми
28.03.2021 16:28
Два пирата играли на золотые монеты. игра состояла из трех партий: второй проиграл половину монет, имевшихся у него в начале игры первый проиграл половину от количества монет, образовавшегося...
visnevskay1
28.03.2021 16:28
1компьютерная сеть – это: а) информационная система с гиперсвязями; б) множество компьютеров, связанных каналами передачи информации и находящихся в пределах одного помещения, здания;...
генетика2
28.03.2021 16:28
C++напишите программу, которая заполняет массив из n элементов членами арифметической прогрессии с начальным значением x и разностью d . входная строка содержит три целых числа: начальное...
antstuart
07.01.2023 09:42
Склавиатуры вводится число х. заполните массив 10 элементами, в котором первый элемент равен числу х, а каждый следующий в 2 раза больше предыдущего. const n=10; var a: array [1..n]...
ВладКрикет
25.02.2023 00:03
Объем реферата составляет 10 страниц, на каждой странице по 35 строк, а в каждой строке по 79 символов. определить информационный объем реферата, если известно, что он кодировался...
Милкаi
04.02.2020 01:52
Логическая в одной школе учились 4 друга паша, олег, дима и вова. все владеют музыкальными инструментами и говорят на одном из иностранных языков. инструменты и языки у мальчиков...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
a:integer;
begin
write('Введите число: ');
readln(a);
if a mod 2 = 0 then begin
writeln('Число четное... прибавляем 5');
a:= a+5; end
else begin
writeln('Число нечетное... вычитаем 10');
a:=a-10;
end;
writeln(a);
end.