Решение задач по теме "Логические выражения в Pascal"

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

program three;
var
   x1,y1,x2,y2:integer;
   Rezultat:boolean;
begin
   write('x1 = ');
   readln(x1);
   write('y1 = ');
   readln(y1);
   write('x2 = ');
   readln(x2);
   write('y2 = ');
   readln(y2);
   Rezultat:=(abs(x1 - x2) = 1) and (abs(y1 - y2) = 2) or
             (abs(x1 - x2) = 2) and (abs(y1 - y2) = 1);
   Write(Rezultat);
end.

Назад