Заданы три площади в треугольнике
print " N S1 S2 S3 S"
print "-----------------------"
n=20
for s3=2 to n
for s1=s3+1 to n
for s2=s1+1 to n
s=s1*s3*(s1+2*s2+s3)/(s2^2-s1*s3)
if s=int(s) then
if s<10^10 then
N=N+1
print N using "###",s1 using "####";
print s2 using "####",s3 using "####";
print s using "####"
fi:fi
next s2
next s1
next s3
После вручную убрал кратные решения и оставил только примитивные
11 января 2024 г.
Свидетельство о публикации №224011100723