Опубликовано 03.01.2018 по предмету Информатика от Гость

Всем привет!)
Нужно составить программу в 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

Не нашел нужный ответ?

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.


Найти другие ответы
Самые новые вопросы