Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
марьяна126
09.09.2022 09:14 •
Информатика
Составить программу к в паскаль. дано число. если оно положительное, то увеличьте его на 1, в противоположном случае уменьшите его на 2. результат выведите на экран.
Показать ответ
Ответ:
liliakolokol
08.10.2020 06:18
Var
num: integer;
begin
read(num);
if num > 0 then write(num + 1) else write(num - 2);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Polinakey9283773744
01.08.2022 22:08
Не запускается win 10. Пробывал в безопасном режиме и консольные команды через восстановление системы. RAM чистил и т.д.Все равно пишет данная ошибка...
EleonoraPonich
01.08.2022 22:08
В языке запросов поискового сервера для обозначения логической операции «ИЛИ» используется символ «|», а для логической операции «И» - символ «&». В таблице приведены...
Участникзнаний13
18.01.2021 21:59
Необходимо вывести все четные числа на отрезке [a;a•10]...
деш2
10.10.2020 20:42
Написать программу, которая определяет является ли введенное число х кратным 7. Program Primer; Var x: integer; begin writeln( Ввести x ); readln (x); if x mod 7=0 then...
James0123
04.09.2020 18:46
1.Необходимо сдвинуть элемент с индексом 12 на позицию 5, сдвинув соответствующие элементы вправо. Сколько сдвигов вправо нужно сделать? 2.Необходимо из массива со 100 элементами...
tolkacheva2005
26.08.2022 13:13
Найти сумму элементов принадлежащих промежутку от a до b , a и b вводятся с клавиатуры...
danilasavap0a3nj
26.02.2022 01:56
Напишите программу печатающую номера элементов массива больших 30 (паскаль)...
Alicewonderr
11.02.2022 11:51
очень кратко на пол страницы примерно И кратко...
Дияс465
13.03.2023 02:11
Тест по физике бу ду благодарная ...
Арина1666
11.02.2022 11:51
Стороны треугольника равны 17 см, 15 см и 8 см. Через вершину A меньшего угла треугольника проведена прямая AM, перпендикулярная к его плоскости. Определите расстояние от...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
num: integer;
begin
read(num);
if num > 0 then write(num + 1) else write(num - 2);
end.