Question

Для данной области составить линейную программу, которая печатает true, если точка с координатами (x,y) принадлежит закрашенной области, и false-в противном случае: На Turbo Pascal.

Answer 1

uses Crt;
var
  x,y:real;
begin
  Write('Vvedite x,y: ');
  Read(x,y);
  Writeln((x>1) and (x<7) and (y>6) and (y<8) or
       (x>3) and (x<5) and (y>2) and (y<6));
  ReadKey
end.