Дано целое число а. если значение а> 1, то необходимо увеличить его на единицу, иначе уменьшить на 1. написать программу для решения этой . программа должна иметь дружественный интерфейс.
mazyrovavlada
1
31.07.2019 02:30
1
Другие вопросы по теме Информатика
112110
05.06.2019 02:20
dary090
05.06.2019 02:20
antiangel18
05.06.2019 02:10
tsisarmaria
03.12.2019 20:14
13381
03.12.2019 20:18
Лисёнка2005
16.03.2020 17:05
svetaaa77
16.03.2020 17:05
555Sofia555
16.03.2020 17:06
sergantmomo
16.03.2020 17:10
Violetta291
16.03.2020 17:10
Популярные вопросы
- надо разложить квадратный трехчлен на множетили ...
2 - Вычислите значение выражения a) 48c + 12d, если с = 9, d = —...
3 - какое программное обеспечение вы можете отметить для создания...
1 - 2-тапсырма. Сұрақтарға жауап бер. ( ) 1. Электр энергиясын өндіру...
3 - Функция задана формулой у = -3х - 3. Найдите значение функции,...
1 - Задание №1. Выберите один правильный ответ (3б): 1) Степень окисления...
1 - Сөйлемдерді аяқтаАқорда –...Астана — Қазақстанның ... Астанада...
1 - Какими словами автор описывает императрицу в рассказе ночь перед...
3 - Какой курс развития избрали страны Центральной и ЮВ Европы: капиталистический...
3 - Неолагизм қолданып Астана мәдениет пен өнер ордасына ойыңды жаз...
3
Var a:longint;
Begin
readln(a);
If a>0 then a:=a+1
else a:=a-1;
writeln(a);
End.