Question

15 задание, по второму рисунку
В Паскале

Answer 1

===== PascalABC.NET =====

begin

 var (x, y) := ReadReal2('Введите X, Y:');

 if (x * x + y * y <= 9) and (x * x + y * y >= 4) and

     (x <= 0) and (y >= 0) or

     (x * x + y * y <= 4) and (x >= 0) and (y <= 0) then

   Writeln('Да')

 else

   Writeln('Нет')

end.