Question

ПОМОГИТЕ ПОЖАЛУЙСТА!!! ​

Answer 1

Ответ: Ошибка состоит в условии (a>0), т.е. пока a будет больше 0

Объяснение:

Ошибка состоит в условии (a>0), т.е. пока a будет больше 0, программа будет увеличивать цифру на единицу. В противном случае программа оставит цифру неизменной.

Отрывок if (a>0) then можно убрать вовсе и тогда при любом числе программа будет увеличивать число.

Program zadacha;

var a:integer;

begin

writeln ('Введите целое число а');

readln (a);

a:=a+1;

writeln ('Полученное число=', a);

end.

При вводе -10 мы получим -9, при вводе 0 мы получим 1, при вводе 10 мы получим 11