Натуральное число представить в виде суммы квадратов трех натуральных чисел - VB

Формулировка задачи:

Доброго дня, товарищи-программисты. Имеется задача: «Дано натуральное число n. Можно ли его представить в виде суммы квадратов трех натуральных чисел? Если можно, то вывести на экран такие тройки x, y и z натуральных чисел, что x2 + y2 + z2 = n. Решения, которые получаются перестановкой x, y и z, считать совпадающими». Не прошу решать задачу полностью, только лишь подкинуть идею, как исключить вариант с перестановкой.

Решение задачи: «Натуральное число представить в виде суммы квадратов трех натуральных чисел»

textual
                            Листинг программы 
                        

                            Sub bb()
Dim x&, y&, z&, n&, n1&
  For n = 1 To 100
    For x = 1 To Int(Sqr(n \ 3))
      n1 = n - x * x
      For y = x To Int(Sqr(n1 \ 2))
        z = Sqr(n1 - y * y)
        If y * y + z * z = n1 Then Debug.Print n, x; y; z
      Next
    Next
  Next
End Sub
                        

Оцени полезность:

13 голосов , оценка 3.615 из 5

Похожие ответы