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

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

Задать свой вопрос
1 ответ
Var
a:integer;
begin
write('Введите A=');read(a);
if agt;0 then
write('A=',a+1);
end.
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт