Question

Напишите два варианта программы которая вводит координаты точки на плоскости и определяет, попала ли эта точка в заштрихованную область. один вариант программы должен использовать сложные условия, второй-обходиться без ниха,в,з СРОЧНО плиз

Answer 1

1)var x,y:real;
begin
read(x,y);
if (x*x+y*y>4) and (y0) then writeln ('YES')
else writeln('NO');
end.
3)var y,x:real;
begin
read(x,y);
if ((y>x) and (y<2-x*x)) or ((y0) and (y<2-x*x)) then write('yes')
else writeln('no');
end.
4)var y,x:real;
begin
read(x,y);
if ((y<-x) and (y>x*x-2)) or((yx*x-2) ) then write('yes')
else writeln('no');
end.
5)var y,x:real;
begin
read(x,y);
if ((y>x) and (x*x+y*y<1)) or ((yelse writeln('no');
end.
6)var y,x:real;
begin
read(x,y);
if ((x*x+y*y<1) and (y>x) and (y>-x)) or ((y-x)) or ((x*x+y*y<1) and (yelse writeln('no');
end.
7)var y,x:real;
begin
read(x,y);
if ((y>1-x) and (x<1) and (y>2*X*X) and (y>0)) or((y>1-x) and (x<1) and (y<2*X*X) and (y>0) and (x>0)) then writeln('yes')
else writeln('no');
end.
8)var y,x:real;
begin
read(x,y);
if ((y<1) and (x>0) and (y>x-1)) or ((y<0) and (x*x+y*y<1) and (x>0) and (yelse writeln('no');
end.
9)var y,x:real;
begin
read(x,y);
if ((x*x+y*y<1) and (y<1) and (x<1)) or ((x*x+y*y>1) and (x<1) and (y<1) and (x>0) and (y>0)) then writeln('yes')
else writeln('no');
end.