Есть ли четыре последовательных числа, сумма квадратов которых равна сумме квадратов трёх следующих чисел. - VB

Узнай цену своей работы

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

Определить, существуют ли такие четыре последовательных натуральных числа, сумма квадратов которых равна сумме квадратов трёх следующих натуральных чисел. Помогите плиз.. вроде просто а понять не могу

Решение задачи: «Есть ли четыре последовательных числа, сумма квадратов которых равна сумме квадратов трёх следующих чисел.»

textual
Листинг программы
Sub test()
Dim n&, a&, s1#, s2#, i&
n = 100
a = n * (2 * n + 1)
For i = a To a + n
  s1 = s1 + i * i
Next
For i = i To i + n - 1
  s2 = s2 + i * i
Next
MsgBox "Сумма квадратов чисел от " & a & " до " & a + n & ": " & s1 & vbLf & _
       "Сумма квадратов чисел от " & a + n + 1 & " до " & a + 2 * n & ": " & s2
End Sub

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

13   голосов , оценка 3.846 из 5
Похожие ответы