Вычислить сумму квадратов элементов, кратных 3 - VB

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

Ребят, нужна помощь. Вычислить сумму квадратов элементов, кратных 3. Нет ни блок-схемы, ни самого решения. Сама я в программировании полный 0.

Код к задаче: «Вычислить сумму квадратов элементов, кратных 3 - VB»

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

14   голосов, оценка 4.357 из 5


СОХРАНИТЬ ССЫЛКУ