Программирование
+3Плиз очень надо я не понимаю как сделать это задание в паскале
На плоскости заданы две точки A и B, координаты которых вводятся с клавиатуры. Написать программу, которая выводит на экран
true, если обе точки находятся в одной четверти плоскости (в одном квадранте)
false в противном случае.
По дате
По рейтингу
var Ax, Ay, Bx, By: Integer;
begin
Read(Ax, Ay, Bx, By);
if (Ax shr 31 = Bx shr 31) and (Ay shr 31 = By shr 31) then WriteLn('True') else WriteLn('False');
end.