用Mathematica做:寻找100以内的勾股数.求程序设计及结果

用Mathematica做:寻找100以内的勾股数.求程序设计及结果
我要的是用Mathematica做的,不要其他东西做的
wh889999 1年前 已收到1个回答 举报

我们的爱0 幼苗

共回答了24个问题采纳率:83.3% 举报

For[i = 1, i < 100, i++, For[j = i, j < 100, j++, For[k = j, k < 100, k++, If[i^2 + j^2 == k^2, Print[i, " ", j, " ", k]; ] ] ] ]直接复制进去,Shift+Enter ,结果为:3 4 55 12 136 8 107 24 25...

1年前

7
可能相似的问题
Copyright © 2024 YULUCN.COM - 雨露学习互助 - 16 q. 0.034 s. - webmaster@yulucn.com