Войти
Регистрация
Спроси ai-bota
В
Все
Х
Химия
В
Видео-ответы
А
Алгебра
Г
Геометрия
О
ОБЖ
Д
Другие предметы
У
Українська література
Р
Русский язык
Б
Беларуская мова
У
Українська мова
Э
Экономика
Ф
Физика
М
Математика
Ф
Французский язык
Г
География
И
Информатика
М
МХК
О
Окружающий мир
П
Психология
Н
Немецкий язык
О
Обществознание
П
Право
И
История
М
Музыка
Л
Литература
Қ
Қазақ тiлi
Б
Биология
А
Английский язык
Показать больше
Показать меньше
kingoflfmvd
21.11.2020 08:22 •
Информатика
Дано целое число а. если значение а > 0, то необходимо увеличить его на единицу, иначе уменьшить на 1. написать программу для решения этой .
Ответ:
NAREK097
21.07.2020 10:55
Var a:integer;
begin
readln(a);
if a>0 then a:=a+1 else a:=a-1;
writeln(a);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
antonenko62
10.11.2022 00:31
Информатика дубль 2 не на татарском пишите...
Олeксандра
05.06.2023 11:22
СРЗНАЧ (39,5) ⬅️⬅️⬅️⬅️⬅️⬅️⬅️⬅️⬅️⬅️⬅️➡️➡️➡️➡️➡️➡️➡️➡️➡️кто знает???...
Андрей22256987654
11.07.2020 21:26
Купил ноутбук работал хорошо три дня на четвёртый начал везде зависать, как это решить? (проблема не в вирусах, анти вирус установлен)...
Tiktak222
04.11.2020 03:49
$ 24 читать.1) Составить программу, в которой элементы массива A[4, 2] задаются случайнымобразом из чисел от 0 до 100 , выводит его на экран и находит количество четныхэлементов...
nikolasosadchey
30.10.2021 15:00
Числа знаходяться в діапазоні [1; 30].обчислити кількість чисел,кратних заданому натуральному числу n....
Ангелинка02052003
30.10.2021 15:00
Вчем состоит принципиальное отличие обычных операций от логических...
Saida6666
30.10.2021 15:00
3записать арифметические выражения на языке паскаль....
lizasergeeva001
30.10.2021 15:00
Значение арифметического выражения: 9^22 + 3^66 – 12 записали в системе счисления с основанием 3. сколько цифр «2» содержится в этой записи...
semiglazova
30.10.2021 15:00
Составить программу на языке паскаль. а) вычислить среднее арифметическое элементов массива а(20) равных за данному числу а. б) вычислить произведение модулей элементов массива...
radion2005
30.10.2021 15:00
Подскажите названия шрифта нужно...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
begin
readln(a);
if a>0 then a:=a+1 else a:=a-1;
writeln(a);
end.