помогите пожалуйста

Помогите пожалуйста

Задать свой вопрос
1 ответ

Ответ:

Вот программа без ошибок:

program zadacha;

var a: integer;

begin

writeln('введите число a);

readln(a);

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

writeln('Приобретенное число ',a);

end.

Объяснение:

Введите а, если а больше 0 тогда а одинаково а+1

Сальтыкова Виолетта
в программе нет ошибок?
Jelvira Hanena
просто я в тетради все также
Валерия
Нет, ошибок нет. В PABC инспектировал
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт