Составьте программу в паскале, с помощью которой определите точки с целыми положительными координатами, лежащие на окружности х²+y2=305.​

Ответ:

не здавайся ти зможеш я в тебе вірю

Ответ:

program circle;

var

x, y, r: integer;

begin

r := round(sqrt(305)); {рассчитываем радиус окружности, округляя корень из 305 до целого числа}

for x := 1 to r do

for y := 1 to r do

if (x*x + y*y = 305) then

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

end.

Объяснение:

можно лучший ответ