Problema 9: Encontar la única terna pitagórica que satisface la ecuación a+b+c=1000
De Software Libre para la Enseñanza y el Aprendizaje de las Matemáticas (2010-11)
(Redirigido desde «Ayuda:Cómo se edita una página»)La solución al problema es a=200, b=375, c=425 luego a*b*c= 31875000 Lo he resuelto a través de la regla de formación de las ternas pitagóricas que son: a=m^2-n^2 b=2*m*n c=m^2+n^2 y resolviendo la ecuación que te resulta al sustituir pero me parece este método más interesante por maxima. Espero que podáis corregirme el error porque no logro que me funcione correctamente.
for a:1 thru 333 do
for b:a thru 500 do c=1000-(a+b); if (a**2+b**2=c**2) then return (a*b*c);