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

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

Задать свой вопрос
1 ответ
Var a:integer;

begin 

readln(a);

 if alt;0 then a:=a+1;

 writeln(a); 

end.
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт