Войти
Регистрация
Спроси ai-bota
В
Все
У
Українська література
Г
Геометрия
Д
Другие предметы
Э
Экономика
Г
География
О
ОБЖ
М
Математика
М
МХК
Х
Химия
Қ
Қазақ тiлi
Л
Литература
У
Українська мова
О
Обществознание
Ф
Физика
А
Английский язык
А
Алгебра
И
История
Б
Беларуская мова
Б
Биология
М
Музыка
П
Право
И
Информатика
П
Психология
В
Видео-ответы
Н
Немецкий язык
Ф
Французский язык
О
Окружающий мир
Р
Русский язык
Показать больше
Показать меньше
egorfadeev02
12.07.2020 16:52 •
Информатика
CРОЧНО Дано целое число. Если оно является положительным, то прибавить к нему 1 ; если отрицательным, то вычесть из него 6; если нулевым, то заменить его на 12. Вывести полученное число.
Ответ:
панда1341
23.04.2020 06:30
Var a:integer;beginread(a);if a>0 then a:=a*2;if a<0 then a:=a-6;if a=0 then a:=12;write(a);end.
0,0
(0 оценок)
Популярные вопросы: Информатика
arsenboosss757
30.01.2023 00:46
выполните действия в двоичной системе счисления: 10001(2)+635(10)...
svetlanasen12
25.09.2021 07:37
Каким служебным словом описывается комбинированный тип?...
jintonik2
24.05.2020 14:41
Но бывают и другие случаи, другие жизненные ситуации. В них следующее ветвление выполняется, когда выполнение предыдущего ветвления еще не закончено. Например...
varvaralikhtsr
27.05.2020 13:16
Вопрос 1. Перечислите 4 типа данных: ( ) 1) bool2) ord3) str4) int5) float6) oct...
Nastena102002
19.08.2020 13:26
⚠️⚠️⚠️⚠️⚠️⚠️⚠️⚠️⚠️⚠️⚠️⚠️⚠️⚠️⚠️⚠️⚠️⚠️⚠️⚠️❗❗❗❗❗❗❗❗❗❗❗❗❗❗❗❗❗❗❗❗ ❗Көмектесіндерші❗1. Деректердің типі туралы қандай ақпарат алдың?2. Программалау барысында сандық деректерді емес,...
csonzdanova
07.09.2020 08:32
Сколько байт составляет сообщение из 512 символов 64 символьного алфавита...
Danilalmaz
16.02.2022 04:11
Дан текст из 850 символов. известно, что символы берутся из таблицы размером 8*16. определите информационный объем текста в битах....
Max2934
16.02.2022 04:11
Вирус петя классификация 1.среда обитания 2.по целостности 3.виды...
ely4
16.02.2022 04:11
1)переведите шестнадцатеричное число 34 в десятичное и двоичное. 2)двоичное число 11110101 перевести в шестнадцатеричное, восьмиричное и десятичное числа...
KisKris1605
24.05.2023 23:38
1 вариант, html НУЖНО РЕШИТЬ ВСЕ 7 ПУНКТОВ...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Var a:integer;beginread(a);if a>0 then a:=a*2;if a<0 then a:=a-6;if a=0 then a:=12;write(a);end.