Вводятся координаты (x;y) точки и радиус круга (r). Определить принадлежит ли данная точка кругу, если его центр находится в начале координат.
Будем считать, что точка принадлежит кругу, если находится внутри его или на его окружности.
Из любой точки координатной плоскости можно провести отрезок к началу координат. Если длина этого отрезка больше радиуса круга, то точка лежит за пределами круга и, следовательно, не принадлежит ему. Если же отрезок, соединяющий точку и начало координат, меньше радиуса круга с центром в начале координат или равен ему, то точка будет принадлежать кругу.
--- PascalABC.NET 3.6.2 ---
begin
var A := ArrRandomInteger(10, -10, 10); // -> Array of integer
A.Println; //Выводим массив в консоль. Строка нужна для проверки
A.Max.Println; //Ищем максимум и печатаем его
end.
Объяснение: