三边长为61,60,11
下面附上VB代码,是吧第二条直角边算到10000
Private Sub Command1_Click()
For a = 1 To 10000
c = Sqr(121 + a ^ 2)
If c = Int(c) Then
Print a
End If
Next a