Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
OLYAPAVLOVA15
20.01.2022 13:07 •
Информатика
Составьте алгоритм проверки, бьют ли друг друга два ферзя, если известны их координаты на шахматном поле;
Показать ответ
Ответ:
chinyakova97p02efn
26.08.2020 12:10
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.
0,0
(0 оценок)
Популярные вопросы: Информатика
mark123445
15.04.2021 03:03
Вопрос: Через пробел запишите числа, которые будут в списке?a = [i for i in range (10) if i % 2 == 0]print (a)Запишите ответ:Задание 2Вопрос:Какое число будет выведено...
Нашли
20.04.2022 15:32
Составить блок-схему. Вывести на экран таблицу при х изменяющемся от -1 до 1 с шагом 0.2 и у от -1 до 1 с шагом 0.1...
tasinas
21.01.2023 18:42
Стороны одного прямоугольника равны а и б.стороны другого х и у .написать программу проверки прямоугольников на равенство их площадей.программа ! решите...
kuzminasasa64
21.01.2023 18:42
Надо написать программу в паскале. : введите три трёхзначных числа. найти разность между наибольшим м наименьшим. заранее !...
Лена17617
26.05.2023 22:00
очень надо написать код на СИ Ввести в одной строке фамилию, имя и отчество. Вывести приветствие, где останутся имя и фамилия(желательно через разделение слов)...
Yarmoshenkobchmd
30.05.2020 12:00
Вчём различие полного и не полного ветвлений?...
sabina1705
19.01.2022 22:08
Минус 7 икс в квадрате минус 3 икс равно нулю...
DMN1111
19.01.2022 22:08
Поиграл это настоящие или будущее или...
пятимейкер
19.01.2022 22:08
Заменить одним словом: принимать участие и устраивать праздник...
Ната70
19.01.2022 22:08
Сочинить пословицы про совесть с рифмой заранее...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
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.