Verified answer

Ответ:

program integer_points_on_circle;

var

 x, y: integer;

begin

 for x := 1 to trunc(sqrt(305)) do

 begin

   y := trunc(sqrt(305 - x * x));

   if x * x + y * y = 305 then

     writeln('(', x, ', ', y, ')');

 end;

end.

Объяснение:

Программа использует цикл for, чтобы проверить каждое значение x от 1 до округленного до целого значения квадратного корня из 305. Затем она вычисляет соответствующее значение y, используя уравнение окружности. Если x и y оба являются целыми числами и удовлетворяют уравнению окружности, программа выводит координаты точки на экран.