Войти
Регистрация
Спроси ai-bota
В
Все
У
Українська література
Г
Геометрия
Д
Другие предметы
Э
Экономика
Г
География
О
ОБЖ
М
Математика
М
МХК
Х
Химия
Қ
Қазақ тiлi
Л
Литература
У
Українська мова
О
Обществознание
Ф
Физика
А
Английский язык
А
Алгебра
И
История
Б
Беларуская мова
Б
Биология
М
Музыка
П
Право
И
Информатика
П
Психология
В
Видео-ответы
Н
Немецкий язык
Ф
Французский язык
О
Окружающий мир
Р
Русский язык
Показать больше
Показать меньше
NotLikeThis
10.03.2022 11:03 •
Информатика
Склавиатуры вводится число. если оно четное, то его нужно удвоить, а если нечетное - утроить. в паскале.
Ответ:
валя360
29.07.2020 23:55
Var n: integer;
begin
read(n);
if (n mod 2 ) = 0 then n:=n*2
else n:=n*3;
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
verahohlova
08.01.2021 11:19
Переведите число 100110111 из двоичной системы счисления в десятичную систему счисления...
zakharskaoye07y
14.05.2021 18:15
1. кто такой? 2. где жил3. в каком году основал? 5. кто был конкурент? 6. в каком году он создал первую операционную систему? 4. в каком году был основан майкрософт7. кто был партнерэто...
Черкашина11
03.06.2023 12:02
Поместить в хеш таблицу 7 книг методом средних квадратов (по названию книги). быть готовым объяснить принцип работы метода....
VlEllen
20.01.2023 07:04
Гиперссылки. Урок 1 Определите случаи, когда не работает внешняя гиперсылка Верных ответов: 2 отсутствует сноска указатель указан неверно файл удален файл переименован...
kust2
27.05.2021 16:14
Как ускорить поиск нужного рисунка в интернете?...
WFCPDF
24.12.2021 11:50
Предложение к слову враг. 25 бплов...
Бубух
24.12.2021 11:50
Разобрать реакцию методом электронного . cr2o3 +ai =ai2o3 +cr. agno3 + cu =cu(no3)2 +ag. ....
Anjica
24.12.2021 11:50
Вещество которым можно отмыть посуду, полоскать горло; его же добавляют в тесто...
malyshkala1234
24.12.2021 11:50
Какой борьбы с сумасбродством дон кихота выбрали окружающие его люди?...
заушкина
24.12.2021 11:50
5плотных и 5 рыхлых веществ по : )...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
begin
read(n);
if (n mod 2 ) = 0 then n:=n*2
else n:=n*3;
end.