Красные углы равны. Ч 2
n=20
for x=1 to n
for y= x+1 to 2*n
k1=(1+x*y)/(y-x)+1/10^15
if k1>y then
if abs(k1-int(k1))<1/10^10 then
if k1<=50 then
s=s+1
print " ";
print s using "####",x using "###",y,k1
fi:fi:fi
next y
next x
Здесь - решения довольно простого диофантова уравнения:
k1=(1+x*y)/(y-x)
c соответствующими ограничениями, которые видны в тексте проги.
Такие последовательности (точнее их полный набор) в энциклопедии https://oeis.org отсутствуют.
Пётр Земсков так решал задачу чисто геометрически:
https://www.youtube.com/watch?v=yEJzu27vW8g
Конечно же, как всегда, очень частно, довольно замысловато, с пародией на оригинальность.
Свидетельство о публикации №223030600852