Вычислить сумму квадратов элементов, кратных 3 - VB
Формулировка задачи:
Ребят, нужна помощь.
Вычислить сумму квадратов элементов, кратных 3.
Нет ни блок-схемы, ни самого решения. Сама я в программировании полный 0.
Решение задачи: «Вычислить сумму квадратов элементов, кратных 3»
textual
Листинг программы
- 'пусть a(?) массив
- s = 0
- For i = 1 To UBound(a)
- If a(i) Mod 3 = 0 Then s = s + a(i) ^ 2
- Next i
- MsgBox s
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
