Question

Составить программу(паскаль), проверяющую принадлежность точки заштрихованной области с выводом соответствующего результата на экран. Координаты точки вводятся с клавиатуры

Answer 1

Var x,y : real;
begin
write('x = '); readln(x);
write('y = '); readln(y);
if (x*x+y*y<=6*6)and((x<=0)or(y<=0))
  then writeln('Да')
  else writeln('Нет')
end.

Пример:
x = -3
y = 3
Да