Question

расписать в паскале: На плоскости расположена окружность R в центре с началом координат.Определить положение точки X с координатами (A,B) относительно окружности (лежит ли точка внутри окружности на окружности или вне ее) Если можно полностью

Answer 1

program center;
var a,b,r:Integer;
begin
  read(a,b,r);
  if ((a*a+b*b) < r) then write('Лежит');
if ((a*a+b*b) > r) then write('Не лежит');
if ((a*a+b*b) = r) then write('Лежит на окружности'); 
end.