Натуральное число представить в виде суммы квадратов трех натуральных чисел - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
