Var x,y: real; begin write('x y через пробел: '); readln(x,y); if ((x>=0) and (x<=6) and (y<=6-x) and (y>=0)) or ((-6<=x) and (x<=0) and (y<=0) and (y>= -6-x)) then writeln('точка принадлежит области') else writeln('точка не принадлежит области'); end. x y через пробел: -3 -4 точка не принадлежит области
x y через пробел: -3 -2 точка принадлежит области
x y через пробел: 1 1.5 точка принадлежит области
x y через пробел: 3 4 точка не принадлежит области
Var x,y: real; begin write('x = '); readln(x); write('y = '); readln(y); if (x*y>=0)and(y<=-x+6)and(y>=-x-6) then writeln('Да') else writeln('Нет'); end.
Answers & Comments
Verified answer
Var x,y: real;begin
write('x y через пробел: '); readln(x,y);
if ((x>=0) and (x<=6) and (y<=6-x) and (y>=0)) or
((-6<=x) and (x<=0) and (y<=0) and (y>= -6-x)) then
writeln('точка принадлежит области')
else writeln('точка не принадлежит области');
end.
x y через пробел: -3 -4
точка не принадлежит области
x y через пробел: -3 -2
точка принадлежит области
x y через пробел: 1 1.5
точка принадлежит области
x y через пробел: 3 4
точка не принадлежит области
Verified answer
Var x,y: real;begin
write('x = '); readln(x);
write('y = '); readln(y);
if (x*y>=0)and(y<=-x+6)and(y>=-x-6)
then writeln('Да')
else writeln('Нет');
end.
Пример:
x = -2
y = -2
Да