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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

14   голосов , оценка 4.357 из 5
Похожие ответы