Составьте алгоритм проверки, бьют ли друг друга два ферзя, если известны их координаты на шахматном поле;

Var
   x1,x2:char;
   y1,y2:byte;
Begin
WriteLn(Координаты белого ферзя:);
Write(           x(a..h) = );ReadLn(x1);
Write(           y(1..8) = );ReadLn(y1);
WriteLn(Координаты чёрного ферзя:);
Write(           x(a..h) = );ReadLn(x2);
Write(           y(1..8) = );ReadLn(y2);
y1:=Abs(y1-y2);
y2:=Abs(Ord(x1)-Ord(x2));
if (y2=0)or(y1=0)or(y2-y1=0)or(y1<2)and(y2<2) then WriteLn(Бьёт)
else WriteLn(Не бьёт);
End.

Оцени ответ
Не нашёл ответ?

Если тебя не устраивает ответ или его нет, то попробуй воспользоваться поиском на сайте и найти похожие ответы по предмету Информатика.

Найти другие ответы

Загрузить картинку
Самые новые вопросы