В матрице подсчитать количество значений всех чисел, которые кратны 3 - VB

Узнай цену своей работы

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

в матрице размера 4х4 подсчитать количество и вывести значения всех чисел, величина которых кратна 3 - Такая вот задача..Помогите кто может)Нужен только исходный код

Решение задачи: «В матрице подсчитать количество значений всех чисел, которые кратны 3»

textual
Листинг программы
dim k as Integer
For p=1 to 4
For o=1 to 4
If int(a(p,o)/3)*3=a(p,o) then
List1.AddItem a(p,o)
k=k+1
next o
next p
List1.AddItem
List1.AddItem "колич. ---  " & k

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


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

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

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