Question

Составить программу в ABC PASCAL:
На плоскости расположена окружность с центром в начале координат. Ввести координаты точки и определить находится ли она на окружности.

Answer 1

var  

r, x, y :integer;

begin

randomize;

writeln('Введите координаты');

read(x);

read(y);  

r := random(10)+1;

writeln('Радиус равен ', r);

if (x*x+y*y <= r*r) then

 writeln('Точка принадлежит окружности')

else

 writeln('Точка не принадлежит окружности');

end.