用Mathematica做：寻找100以内的勾股数.求程序设计及结果我要的是用Mathematica做的，不要其他东西做的

来源：学生作业帮助网编辑：作业帮时间：2024/05/09 00:43:51

用Mathematica做：寻找100以内的勾股数.求程序设计及结果我要的是用Mathematica做的，不要其他东西做的
用Mathematica做：寻找100以内的勾股数.求程序设计及结果
我要的是用Mathematica做的，不要其他东西做的

用Mathematica做：寻找100以内的勾股数.求程序设计及结果我要的是用Mathematica做的，不要其他东西做的
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
11 60 61
12 16 20
12 35 37
13 84 85
14 48 50
15 20 25
15 36 39
16 30 34
16 63 65
18 24 30
18 80 82
20 21 29
20 48 52
21 28 35
21 72 75
24 32 40
24 45 51
24 70 74
25 60 65
27 36 45
28 45 53
30 40 50
30 72 78
32 60 68
33 44 55
33 56 65
35 84 91
36 48 60
36 77 85
39 52 65
39 80 89
40 42 58
40 75 85
42 56 70
45 60 75
48 55 73
48 64 80
51 68 85
54 72 90
57 76 95
60 63 87
65 72 97

用Mathematica做：寻找100以内的勾股数.求程序设计及结果我要的是用Mathematica做的，不要其他东西做的用Mathematica求函数表达式?一定要用Mathematica做哦,主要是看代码怎么写. 用mathematica 如何做X=2的图像求大神用Mathematica做一下这个函数图像Z mathematica做多元微分项目用Mathematica 8.0 画图用mathematica解决微分方程用Mathematica求解寻找以琛是什么意思? mathematica求积分的问题刚刚看了贴吧上有问一道题目,做了下没写出来,用mathematica发现是这样的啥意思那out里面 mathematica画抛物线想用mathematica做两个抛物线方程的图,方程为y^2=-20x;与x^2=-5/2y 寻找适合零下100摄氏度的钢铁材料?我要做反应釜用的. mathematica 如何做物理运动图像? 用Mathematica作图,求代码. 写作文用寻找做题目```写什么好呢? 以“寻找”为题的文章 y'+2*y^2=1/(1+x^2)用mathematica软件怎么做?这道题不能直接用DSolve 寻找溶解剂怎么做