Дано целое число А. Если значение А > 0, то необходимо увеличить его на единицу, иначе уменьшить на 1. Написать программу для решения этой задачи. Протестировать программу для A=3, A=0, A=-12.

Вопрос школьника по предмету Информатика

Дано целое число А. Если значение А > 0, то необходимо увеличить его на единицу, иначе уменьшить на 1. Написать программу для решения этой задачи. Протестировать программу для A=3, A=0, A=-12.

Ответ учителя по предмету Информатика

program abc;

var a:real;

begin

readln (a);

if (a>0) then a:=a+1 else a:=a-1;

writeln (a);

readkey;

end.