Ответы на вопрос:
Var a: integer; begin readln(a); if a> 0 then a: =a+1 else a: =a-1; writeln(a); end.
Популярно: Информатика
-
4. Продолжите предложения Аппаратная основа компьютера – это ......
maksshvanov12.05.2021 08:59 -
При регистрации в компьютерной системе каждому пользователю выдаётся...
hojimutito25.05.2021 06:09 -
На карте памяти объемом 8 Гб размещается 4 видеофайла (1,5 Гб каждый),...
пушинка1021.03.2023 04:29 -
Задание 2 Заполните таблицу Название Автор Где Когда Абак Арифмометр...
диана245930.08.2021 13:30 -
По заданному сообщению вычислить информацию одного символа, общую...
66ХОХ6616.07.2020 16:58 -
1. постройте в различных системах координат графики следующих функций...
artyom298022.04.2021 05:07 -
Племя мульти имеет 16 символьный алфавит. Племя пульти использует...
gireeva0002.03.2022 19:50 -
102 и 103 и 101, мне нужны только ответы на задачу!)...
KolianN15.01.2020 07:26 -
Розробіть код, обчислення суми чисел натурального ряду, максимальне...
maхimus23.03.2021 17:14 -
Осуществите перевод количества информации на одних единиц в другие:...
Skillet12151605.12.2021 07:09