Найти сумму делителей введенного с клавиатуры числа - VBA
Формулировка задачи:
Задача в Excel в VBA.
Решение задачи: «Найти сумму делителей введенного с клавиатуры числа»
textual
Листинг программы
Sub Александр9797() n = InputBox("N=") For i = 1 To n If n Mod i = 0 Then s = s + i Next i Debug.Print s 'сумма всех делителей для числа 34 MsgBox s For i = 1 To n Step 1 If n Mod i = 0 Then Debug.Print "i ="; i 'перечисляются все делители числа 34 Next i End Sub ' 54 'i = 1 'i = 2 'i = 17 'i = 34
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д