Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
donya2014
03.07.2022 13:51 •
Информатика
Составьте алгоритм проверки, бьют ли друг друга два ферзя, если известны их координаты на шахматном поле;
Показать ответ
Ответ:
gpatimat
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 оценок)
Популярные вопросы: Информатика
1миллионДаша11
30.10.2022 13:55
Чему равно максимальное количесво книг(каждая объемом 250 стр на каждой странице 60 строк,80 символов в строке),полностью размещённых на лазерном диске емкостью 750...
Zabuzamomochiiii
14.12.2021 00:12
нужно решить в кумире ,задание прикреплено на фото...
Mariaglu2
01.11.2021 18:03
Basic, intermediate and advanced system security measures (SSM) Напишите объяснение на вот этих три уровню...
Cookiemi2017
11.05.2020 18:49
Что такое информационый вес символа...
ledytyt13
31.08.2022 14:39
1)сообиение, з аписанноесли буквами из 16-ти символьного алфавита содержит 90 символов. какой объем информации оно несёт ? 2)информационное сообщение объемом 2 кбайта...
lilyok2006
31.08.2022 14:39
Однажды удалось в одном сосуде собрать и смешать 8 слезинок саламандры. у него есть два пустых флакона объёмом 2 и 3 слезинки. как ему отмерить 4 слезинки? не забывайте,...
markdanilov2002
31.08.2022 14:39
Переведите в двоичную систему десятичное число 137...
Penguinunicirn
06.01.2023 10:52
Придумайте тест задачу в программе питон ...
spinny9tim
24.01.2023 09:20
He ... a book now a) reads b) is reading c) readI ... in the river every summera) swim b) am swimming c) swims Pater ... a newspaper at this moment a) reads b) read...
7376373
08.05.2022 15:53
Лучи солнца осветили опушку леса(синтаксический разбор Мне надо до трёх часов!Заранее...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.