Проверить истинность высказывания: «Ферзь за один ход может перейти с одного поля на другое» — Pascal(Паскаль)

Даны координаты двух различных полей шахматной доски x1, y1, x2, y2 (целые числа, лежащие в диапазоне 1–8).

Program Boolean39;

Var
  x1, y1, x2, y2: Integer;

Begin
  WriteLn('Введите координаты первого поля: ');
  ReadLn(x1, y1);
  WriteLn('Введите координаты второго поля: ');
  ReadLn(x2, y2);
  WriteLn((x1 = x2) Or (y1 = y2) Or (x1 - y1 = x2 - y2) Or (x1 + y1 = x2 + y2));

end.

Leave a Comment

64 − = 58