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

Россия111111111111 Россия111111111111    2   30.08.2019 22:20    2

Ответы
proulechka proulechka  09.09.2020 15:00
Program abc;
var a:real;
begin
readln (a);
if (a>0) then a:=a+1 else a:=a-1;
writeln (a);
readkey;
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика