Question

Написать программу в pascal

Answer 1

var

 x, y, R: real;

begin

 R := 1; // радиус окружности (в задаче равен 1)

 Write('Введите через пробел координаты точки  x, y: ');

 Read(x, y);

 if (Sqr(x) + Sqr(y) <= Sqr(R)) and (y <= 0) then

   Write('Точка принадлежит заштихованной области')

 else Write('Точка не принадлежит заштихованной области');

end.