catanedelcu

102, 382, 987  cu patratele  484 ,1089,1369.  :)  solutiile sunt in nr. infinit.  Pt. numere mai mici de 1000 le puteti obtine cu chestia de mai jos:

Sub Button1_Click()
i = 0
For a = 1 To 1000
For b = 1 To 1000
 ab = a + b
 If (Sqr(ab) = Int(Sqr(ab))) Then
For c = 1 To 1000
ac = a + c
bc = b + c
If (Sqr(ac) = Int(Sqr(ac))) And (Sqr(bc) = Int(Sqr(bc))) Then
  Sheet1.Cells(i + 4, 2) = a
  Sheet1.Cells(i + 4, 3) = b
  Sheet1.Cells(i + 4, 4) = c
  Sheet1.Cells(i + 4, 6) = ab
  Sheet1.Cells(i + 4, 7) = ac
  Sheet1.Cells(i + 4, 8) = bc
i = i + 1
End If
Next c
End If
Next b
Next a
End Sub