Ход ферзя

[iSkulll]

Даны координаты двух различных полей шахматной доски x1,y1, x2,y2, (целые числа, лежащие в диапазоне 1-8). Проверить истинность высказывания «Ферзь за один ход может перейти с одного поля на другое»

[Vanta11a]

Проверить вертикаль, потом горизонталь и две диагонали. Если может - вывести ответ. В чем проблема?

Если *значения вертикали не равны* то
Если *значения горизонтали не равны* то
Если *Отношение разности по горизонтали к разности по вертикали не равно 1* то
*не может*
иначе
*может*
иначе
*может*
иначе
*может*

[Serge_Bliznykov]

в принципе, Vanta11a прав.

if (x1=x2) or (y1=y2) or (abs(x1-x2)=abs(y1-y2)) then WriteLn('Может')
else WriteLn('Нет, не может.');