Запорашиваются координаты дыхания полей (x1; y1) и (x2;y2). Пусть в первом поле (x1;y1) стоит король. Ваша программа говорит, угрожает ли он второму полю (x2;y2)
Программы для двух полей*
Для Паскаля*, простите за ошибки)
Не надо доить Паскаля, он уже 300 лет как помер.
Если координаты задаются по-шахматному, "буква-цифра", то так:
var x1,x2:char;
y1,y2:byte;
begin
repeat
readln(x1,y1,x2,y2);
until (x1 in ['a'..'h']) and (x2 in ['a'..'h']) and (y1 in [1..8]) and (y2 in [1..8]);
writeln(abs(y1-y2)<2 and abs(ord(x1)-ord(y2))<2);
end.
ЧТО делая с Паскалем?
Дыхания?? ?
Речь о шахматах?
if ( (abx(x1-x2) <= 1) and (abx(y1-y2) <= 1) ) then writeln( 'Угорожает' );
⇢