№1.
График - часть графика y=5/4*IxI-5 до пересечения с осью Ox.
Program BiFi;
Var x,y:real;
Begin
readln(x,y);
if (y<=0) and (y<=5*abs(x)/4 - 5) then writeln('prinadlezit')<br>else writeln(' ne prinedlezit');
readln;
end.
№2.
График - половина кольца с радиусами 2 и 4.
Program BiFi;
Var x,y:real;
Begin
readln(x,y);
if (x>=0) and (x*x+y*y<=4) and (x*x+y*y>=2) then writeln('prinadlezit')
else writeln('ne prinadlezit);
readln;
end.
№3.
График состоит из четверти окружности радиусом 3 в II коорд. четверти и частью прямой y=3-x/2, ограниченной I коорд. четвертью.
Program BiFi;
Var x,y:real;
Begin
readln(x,y);
if y>=0 then if (x<=0) and (x*x+y*y<=3) then writeln('prinadlezit')<br> else if (x>=0) and (y<=3-(x/2)) then writeln('prinadlezit')<br> else writeln('ne prinadlezit')
else writeln(' ne prinadlezit');
readln;
end.