Вычислить сумму квадратов элементов, кратных 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