Дано целое число. Если оно является положительным, то прибавить к нему 1; если отрицательное,то вычесть 2, если нулевым,то заменить его на 10. вывести полученное число. программа.

5 Мар 2020 в 19:41
941 +1
0
Ответы
1

var a: integer;

begin

readln(a);

if a>0 then a:=a+1

else if a<0 then a:=a-2

else a:=10;

writeln(a);

end.

5 Мар 2020 в 22:27
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
Прямой эфир