Ответы
Все условия в одном операторе if:
var
x,y :real;
begin
writeln('Введите координаты точки X и Y:');
readln (x,y);
write('Точка <',x,';',y,'> ');
if (x>=0) and (x<=4) and (y>=0) and (y<=2) or
(x*x+y*y<=2*2) and (x<=0) and (y>=0) or
(x>=-2) and (x<=0) and (y>=-4) and (y<=0) or
(x*x+y*y<=3*3) and (x>=0) and (y<=0)
then write('принадлежит выделенной области')
else write('НЕ принадлежит выделенной области');
end.
Условия в нескольких операторах if:
var
x,y :real;
p: integer;
begin
p:=0;
writeln('Введите координаты точки X и Y:');
readln (x,y);
write('Точка <',x,';',y,'> ');
if (x>=0) and (x<=4) and (y>=0) and (y<=2) then p:=1;
if (x*x+y*y<=2*2) and (x<=0) and (y>=0) then p:=1;
if (x>=-2) and (x<=0) and (y>=-4) and (y<=0) then p:=1;
if (x*x+y*y<=3*3) and (x>=0) and (y<=0) then p:=1;
if p=1 then write('принадлежит выделенной области')
else write('НЕ принадлежит выделенной области');
end.