Всем привет!)

Нужно составить программу в Excel или Mathcad или VBA. Программа должны выводить в массив перечень чисел, кратных 2,3,5. Диапазон вывода чисел - от нуля, а верхняя граница указывается пользователем.

Буду очень признателен, если кто-то мне поможет.

Question

Информатика

Анастасьюшка

22 февраля, 22:02

Всем привет!)

Нужно составить программу в Excel или Mathcad или VBA. Программа должны выводить в массив перечень чисел, кратных 2,3,5. Диапазон вывода чисел - от нуля, а верхняя граница указывается пользователем.

Буду очень признателен, если кто-то мне поможет.

+5

Ответы (1)

Знаете ответ на вопрос?

Ксения · Answer 1

Dim i as Integer

Dim n as Integer

n=InputBox ("Введите верхнюю границу")

Dim Massiv () As Integer

Dim s As Integer

For i = 0 To n

If (i Mod 2) = 0 Or (i Mod 3) = o Or (i Mod 5) = 0 Then ReDim Preserve Massiv (s) : Massiv (s) = i: s = s + 1

Next