Отладки программы.
) Программный код полностью по образцу. Ручкой другого цвета исправить допущенные ошибки,

145

484

Посмотреть ответы 1

Ответы на вопрос:

Dianakim05

Информатика

4,7(66 оценок)

Координаты клеток - целые числа из диапазона от 1 до 8 var x,y,x1,y1: byte; b: boolean; beginwriteln('x, y: '); readln(x,y); writeln('x1, y1: '); readln(x1,y1); b: =(abs(x1-x)=1)and(y1=y); //на 1 вертикали b: =b or (abs(y1-y)=1)and(x1=x); //на 1 горизонтали b: =b or (abs(x1-x)=1)and(abs(y1-y)=1); //рядом по диагонали if b then writeln('может') else writeln('не может'); end.