Опубликовано 22.08.2017 по предмету Информатика от Гость >> <<

На поле (a,b) расположен король. Угрожает ли он полю (c,d)? Нужна программа в паскале

Ответ оставил Гость

Var a,b,c,d : Byte;
Begin
  Readln(a,b);
  Readln(c,d);
  If (abs(a-c)>1) and (abs(b-d)>1) then Write(не );
  Writeln(угрожает);
end.