Поле шахматной доски определяется парой натуральных чисел, каждое из которых не превосходит 8: первое число — номер вертикали (при счете слева направо), второе — номер горизонтали (при счете снизу наверх). Даны натуральные числа k,l,m,n каждое из которых не превосходит 8. Требуется: На поле (k,l) расположен конь, угрожает ли он полю (m,n) — Pascal(Паскаль)

uses crt;
var k,l,m,n:byte;
begin
clrscr;
repeat
writeln('Положение коня:');
write('k=');readln(k);
write('l=');readln(l);
until (k in [1..8])and(l in [1..8]);
repeat
writeln('Поле для хода:');
write('m=');readln(m);
write('n=');readln(n);
until (m in [1..8])and(n in [1..8])and((k<>m)or(l<>n));
if ((abs(k-m)=1)and(abs(l-n)=2))or((abs(k-m)=2)and(abs(l-n)=1))then
write('Конь угрожает заданному полю')
else write('Конь не угрожает заданному полю');
readln
end.

Leave a Comment

7 + 2 =