Составить программку, которая печатает true, если точка с координатами (х, у)

Составить программу, которая печатает true, если точка с координатами (х, у) принадлежит заштрихованной области, и false в неприятном случае.

Задать свой вопрос
Юрок Лужовинов
Печально. Только желал на PascalABC.NET написать...
Витя Лелюх
Я-то могу, но программка не пойдет в Pascal ABC. Ни одна ее строка, не считая begin и end. не пойдет.
Серж Шамеудинов
Да чего же тут решать-то? Не можете обрисовать область, где выражение правильно?
1 ответ
PascalABC.NET 3.3.5, сборка 1669 от 21.05.2018
Внимание! Если программа не работает, обновите версию!

begin
  var (x,y):=ReadReal2('Введите координаты точки:');
  Writeln(
      (Абс(x)lt;5) and (ygt;0) and (ylt;5) and
      not ((Абс(x)lt;=2) and (ygt;0) and (ylt;=1)))
end.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт