//PascalABC.Net var r,x,y:real; c:string; begin Write('Введите R: '); Read(r); Write('Введите координаты x и y: '); Read(x,y); if sqr(x)+sqr(y)=sqr(r) then c:='Точка лежит на окружности' else c:='Точка не лежит на окружности'; Writeln(c) end.
Тестовые решения: Введите R: 2 Введите координаты x и y: 0 2 Точка лежит на окружности
Введите R: 2 Введите координаты x и y: -1.5 0.7 Точка не лежит на окружности
Введите R: 2 Введите координаты x и y: 1 1 Точка не лежит на окружности
Введите R: 2 Введите координаты x и y: 3 0 Точка не лежит на окружности
