100 以内的最简勾股数答:3,4,5 5,12,13 7,24,25 9,40,41 11,60,61 13,84,85 8,15,17 12,35,37 16,63,65 没了 很全的啊 分分~~~
用Mathematica做:寻找100以内的勾股数。求程序设计及结果答: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 5 5 12 13 6 8 10 7 24 25 8 15 17 9 12 15 9 40 41 10 24 26 1...