Помогите сотавить программку Турбо Паскале.Дано целое число  А. Если значение Аamp;gt;0, 

Помогите сотавить программку Турбо Паскале.

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

Задать свой вопрос
1 ответ
Var a:longint;
begin
read(a);
if agt;0 then
a:=a+1;
end.

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


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

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

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

Войти на сайт