Найти все натуральные числа в диапазоне [a, b], которые делятся на каждую из своих цифр - VB
Формулировка задачи:
Найти все натуральные числа в диапазоне [a, b], которые делятся на каждую из своих цифр.
Решение задачи: «Найти все натуральные числа в диапазоне [a, b], которые делятся на каждую из своих цифр»
textual
Листинг программы
- Function ChkNum(n As Long) As Boolean
- Dim D(0 To 9) As Integer
- nn& = n
- ChkNum = True
- Do
- k% = nn& Mod 10
- D(k%) = D(k%) + 1
- nn& = nn& \ 10
- If nn& = 0 Then Exit Do
- Loop
- For i% = 2 To 9
- If (D(i%) <> 0) Then
- If (n Mod i%) <> 0 Then
- ChkNum = False
- Exit Function
- End If
- End If
- Next i%
- End Function
- Sub Test()
- For a& = 100 To 200
- If ChkNum(a&) Then Debug.Print a&
- Next a&
- End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д