Всем ! ) нужно составить программу в excel или mathcad или vba. программа должны выводить в массив перечень чисел, кратных 2,3,5. диапазон вывода чисел - от нуля, а верхняя граница указывается пользователем. буду признателен, если кто-то мне .
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
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