var
  x1,y1,x2,y2: byte;
begin
  repeat
    write('Введите координаты первого поля: ');
    readln(x1,y1);
  until (x1 in [1..8]) and (y1 in [1..8]);
  repeat
    write('Введите координаты второго поля: ');
    readln(x2,y2);
  until (x2 in [1..8]) and (y2 in [1..8]);
  if ((abs(x2-x1)=2)and(abs(y2-y1)=1))or((abs(x2-x1)=1)and(abs(y2-y1)=2))
    then writeln('true') else
      writeln('false');
  readln;
end.

Dim x1 As Long, y1 As Long, x2 As Long, y2 As Long

Do
x1 = Val(InputBox("Введите координату первого поля x1"))
y1 = Val(InputBox("Введите координату первого поля y1"))
Loop Until x1 > 0 And x1 < 9 And y1 > 0 And y1 < 9

Do
x2 = Val(InputBox("Введите координату второго поля х2"))
y2 = Val(InputBox("Введите координату второго поля y2"))
Loop Until x2 > 0 And x2 < 9 And y2 > 0 And y2 < 9

MsgBox ((Abs(x2 - x1) = 2) And (Abs(y2 - y1) = 1)) Or ((Abs(x2 - x1) = 1) And (Abs(y2 - y1) = 2))

На сайте осуществляется обработка файлов cookie, необходимых для работы сайта, а также для анализа использования сайта и улучшения предоставляемых сервисов с использованием метрической программы Яндекс.Метрика.

Продолжая использовать сайт, вы даёте согласие на обработку файлов cookie, необходимых для работы сайта. Другие опции вы можете выбрать по своему усмотрению.

По нижеприведенным ссылкам мы можете ознакомиться с действующим на сайте пользовательским соглашением и политикой конфиденциальности.

Пользовательское соглашение
Политика конфиденциальности

	Необходимые cookie
	Cookie для сбора статистики
	Cookie для маркетинга и рекламы