Определить делители каждого числа, используя For.Next - VB
Формулировка задачи:
Здравствуйте!
Ecть проблема. Так как я только, только закончил учить логичуские операторы, у меня появилась проблема. Я заболел грипом, и пропустил неделю учёбы, в это время нас учили For..Next, где нам задали каждому своё задание.
Я посмотрел парочку видео, но в конце концов, так и не нашол решение для своей задачи, не могли бы вы посмотреть это задание, и может кинуть ссылочку на какой небудь ресурс или пост с похожей задачей, где я бы мог понять, как я могу зделать это задание:
Дано 5 случайных чисел в интервале от [1 до 100]. Определить делители каждого числа.
Результат вывести в таком формате: (Делимое число) : (Делители с запятой).
Пример: 6: 1,2,3,6.
22: 1,2,11,22
7: 1,7
ну и тд и тп.
P.S Извените за плохой русский.
Решение задачи: «Определить делители каждого числа, используя For.Next»
textual
Листинг программы
Dim m As Integer Randomize (Time) For i = 1 To 5 m = Int((100 * Rnd) + 1) Dim tmp() As String ReDim tmp(0) For x = 1 To m If m Mod x = 0 Then ReDim Preserve tmp(UBound(tmp) + 1) tmp(UBound(tmp)) = Str(x) End If Next x Debug.Print Str(m) & ":" & Join(tmp, ",") Next i
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д