Question

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

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

Answer 2

Не хочу заливать..
Проверил - работает..

Про Эксел - смешно=)

Answer 3

спасибо огромное, работает))))

Answer 4

Расчет нужно произвести по формуле 2^a*3^b*5^c=выводимые числа
a,b,c - целые натуральные числа от нуля