Составить программу вычисляющую сумму квадратов первых N натуральных чисел. Количество чисел N задаётся во время работы программы. Для разработки использовать приложение Visual Basic.
Составить программу вычисляющую сумму квадратов первых N натуральных чисел. Количество чисел N задаётся во время работы программы. Для разработки использовать приложение Visual Basic.
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Интересные статьи из справочника
Поможем написать учебную работу
Отвечай на вопросы, зарабатывай баллы и трать их на призы.
Подробнее
Подробнее
Option Explicit
Sub Main()
N = InputBox("Введите количество чисел N:")Dim N As Integer
Dim sum As Long
Dim i As Integer
sum = 0
For i = 1 To N
sum = sum + i ^ 2
Next i
MsgBox "Сумма квадратов первых " & N & " натуральных чисел равна " & sum
End Sub