Найти количество делителей введенного с клавиатуры числа - VBA
Формулировка задачи:
В Excel.
Решение задачи: «Найти количество делителей введенного с клавиатуры числа»
textual
Листинг программы
Sub делители()
A = InputBox("Введите натуральное число")
If A <= 0 Then
MsgBox ("Ошибка ввода данных")
Exit Sub
End If
Count = 0
For i = 1 To A
If A / i - Int(A / i) = 0 Then
Count = Count + 1
End If
Next i
MsgBox ("Количество делителей - " & Count & vbCrLf)
End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д