Дано целое число А. Если значение А amp;gt; 0, то нужно

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

Задать свой вопрос
1 ответ
Program abc;
var a:real;
begin
readln (a);
if (agt;0) then a:=a+1 else a:=a-1;
writeln (a);
readkey;
end.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт