Шахматный конь за один ход может переместиться с одного заданного поля на другое (каждое поле задано двумя координатами — целыми числами от 1 до 8)- Pascal(Паскаль)

uses crt;
var a,b,c,d:byte;
begin
clrscr;
repeat
writeln('Положение коня:');
write('a=');readln(a);
write('b=');readln(b);
until (a in [1..8])and(b in [1..8]);
repeat
writeln('Поле для хода:');
write('c=');readln(c);
write('d=');readln(d);
until (c in [1..8])and(d in [1..8]);
if ((abs(a-c)=1)and(abs(b-d)=2))or((abs(a-c)=2)and(abs(b-d)=1))then
write('Конь может за один ход попасть на заданное поле')
else write('Конь не может за один ход попасть на заданное поле');
readln
end.

Leave a Comment

18 − 13 =