求出100以内的所有勾股数(勾股数 a²+b²=c² ,a,b,c均为自然数,且ab)
来源:学生作业帮助网 编辑:作业帮 时间:2024/07/13 19:31:26
xUOo0*QЪn;YR$VqmܬIH28iP*pAp\4&>MKnaO\VG_#'FGo.݂T[&n؉~
N{Ojep~|ij}g Y#QP%q}Lˋ)$~YnnbDEbfx?[qȽvX/G( )ߙM¹|NܚrrnEKW-\ {T⥝VjYiaޜ3MF9ҏ2Opȋ) w3ȗbaם)qPtg-iձ-ќhW|`7/;wt8ixj$$dۖE
ɶe)
qp[Әc?R tWڞ`lX , -mAŪ"(b Lزu&XM+UUl+fD'QN qY1\ 1ĆHGU5YFzˢ\EjQ_O&:B
求出100以内的所有勾股数(勾股数 a²+b²=c² ,a,b,c均为自然数,且ab)
求出100以内的所有勾股数(勾股数 a²+b²=c² ,a,b,c均为自然数,且ab)
求出100以内的所有勾股数(勾股数 a²+b²=c² ,a,b,c均为自然数,且ab)
Private Sub Form_Load()
Dim i As Integer, j As Integer, k As Integer
Dim s As String
For i = 1 To 100
For j = 1 To 100
For k = 1 To 100
If i * i + j * j = k * k and i<>j Then
s = VBA.Format(i, "0") & "," & VBA.Format(j, "0") & "," & VBA.Format(k, "0") & Chr(13) & Chr(10)
Text1.Text = Text1.Text & s
End If
Next k
Next j
Next i
End Sub
求出100以内的所有勾股数(勾股数 a²+b²=c² ,a,b,c均为自然数,且ab)
在VB里输入什么代码求出1000以内的所有勾股数!
求50以内的所有勾股数
用while语句求出100以内的所有奇数之和和偶数之和
100以内的质数所有
100以内的所有因数.
1000以内所有勾股数的编程的流程图是什么?A、B、C是整数
数学实验编程找出 1000以内的所有勾股数
请给我所有50以内的勾股数.请快!
找出100以内的所有勾股数,一次输出五组的VB代码
求100以内13的所有倍数!
100以内所有8的倍数?无
如何计算100以内的所有素数?
100以内所有奇数的和是()
100以内的所有素数,奇数、合数
100以内所有奇数的和是()
100以内所有合数的因数
100以内所有6的因数