9 lines
204 B
Text
9 lines
204 B
Text
Dim As Integer x, y, z, n = 25
|
|
For x = 1 To n
|
|
For y = x To n
|
|
For z = y To n
|
|
If x^2 + y^2 = z^2 Then Print Using "{##_, ##_, ##}"; x; y; z
|
|
Next z
|
|
Next y
|
|
Next x
|
|
Sleep
|