В матрице подсчитать количество значений всех чисел, которые кратны 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
