Question

Требуется определить, бьет ли ферзь, стоящий на клетке с указанными координатами (номер строки и номер столбца), фигуру, стоящую на другой указанной клетке. Вводятся четыре числа: координаты ферзя и координаты другой фигуры.

Входные данные Выходные данные
1 YES
1
2
1
-----------------------------------------------------------------------
1 NO
1
3
2
Heeelp me, please!
Буду ооочень благодарна!!!

Answer 1

Var x1,x2,y1,y2:integer;
beginwrite('Введите координаты х и у ферзя: ');
readln(x1,y1);
write('Введите координаты х и у фигуры: ');
readln(x2,y2);
if (abs(x1-x2)=abs(y1-y2)) or (x1=x2) or (y1=y2) then
  writeln('YES') else writeln('NO')
end.