Var x,y:real;
begin
readln(x,y);
if (y>=2) and (x*x+y*y>=16) and (x*x+y*y<=36) then
writeln(‘принадлежит’)
else writeln(‘не принадлежит’);
end.
писал с телефона, так что могут быть синтаксические ошибки
но логически программа верная
Ответ:
Могу подсказать только 1 вариант:
Объяснение:
Module Module1
Sub Main()
Dim x As Single
Dim y As Single
Console.WriteLine("Введите координаты точки x ")
x = Console.ReadLine()
Console.WriteLine("Введите координаты точки y ")
y = Console.ReadLine()
If (x <= 4 And y <= 4 And y >= 4 - x) Or (y <= -4 - x And y >= -4 And x >= -4) Then Console.WriteLine("Точка принадлежит области") Else Console.WriteLine("Точка не принадлежит области")
Console.ReadKey()
End Sub
End Module