1 2 3 4 5 6 7 8 9 10 | Dim x As Integer Dim y As Integer For x = -5 To 5 For y = -5 To 5 If x ^ 2 + 2 * x * y + y ^ 2 = 16 Then Print x; y End If Next y Next x |
Direct link: https://paste.plurk.com/show/zQPqBviAnqcyqOWNq82b
1 2 3 4 5 6 7 8 9 10 | Dim x As Integer Dim y As Integer For x = -5 To 5 For y = -5 To 5 If x ^ 2 + 2 * x * y + y ^ 2 = 16 Then Print x; y End If Next y Next x |