Question

Turbo Pascal. Принадлежит ли точка заданной области

Answer 1

Var
  x, y: integer;

begin
  write('Координаты точки x,y ');
  readln(x, y);
  if ((sqr(x) + sqr(y)) <= 4) and ((sqr(x) + sqr(y)) >= 1)
    then writeln('Принадлежит')
  else
    writeln('Не принадлежит');
end.

Тест №1
Координаты точки x,y -1 1
Принадлежит

Тест №2
Координаты точки x,y -3 3
Не принадлежит