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

Категория: Delphi/Pascal
2011-12-06 19:59:16

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

code: #pascal
Program Boolean40;
Var
x1,y1,x2,y2:Integer;
Begin
WriteLn('Введите координаты первого поля: ');
ReadLn(x1,y1);
WriteLn('Введите координаты второго поля: ');
ReadLn(x2,y2);
WriteLn(((Abs(x1 - x2) <= 2) And (Abs(y1 - y2) = 1)) Or ((Abs(x1 - x2) = 1) And (Abs(y1 - y2) <= 2)));
end.

автор: Sklyarov Sergej a.k.a. S9

Поделиться:

Похожие статьи:

теги: М.Э.Абрамян, координаты, целые числа, консольное приложение, студенты, истинность высказывания