Question

Поле шахматной доски определяется парой натуральных чисел, каждое из которых не превосходит 8: первое число - номер вертикали (при счете слева направо), второе - номер горизонтали (при счете снизу вверх). на поле (a, b) расположен король. верно ли, что он может одним ходом попасть на поле (c, d)? чтобы попасть на собственное поле, королю нужно два хода. значения c и d могут находится вне границ шахматной доски. в этом случае король в принципе не может попасть на заданное поле. формат входных данных даны натуральные числа a, b каждое из которых не превосходит 8. а также числа c,d каждое из которых лежит в интервале [0, 10] формат выходных данных на выходе программы должно быть написано булево значение, определяющее выполняется ли заданное условие на паскаль

Answer 1

Var a,b,c,d:integer; b1,b2:boolean;
begin
readln(a,b,c,d);
b1:=(c in [1..8])and(d in [1..8]);
b2:=(abs(a-c)<=1)and(abs(b-d)<=1)and((a<>c)or(b<>d));
writeln(b1 and b2);
end.

Пример:
5 4 5 3
True