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

Ответ

Автор - 13nisa13

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.

Сервис носит ознакомительный характер, вся информация, а в частности вопросы и ответы, которые задают и отвечают пользователи.