Задание:
Расписать в паскале: На плоскости расположена окружность R в центре с началом координат. Определить положение точки X с координатами (A,B) относительноокружности (лежит ли точка внутри окружности на окружности или вне ее) Если можно полностью
Решение:
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.
Знаете другой ответ?