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

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

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


СДЕЛАЙТЕ РЕПОСТ