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