Найти все натуральные числа в диапазоне [a, b], которые делятся на каждую из своих цифр - VB

Узнай цену своей работы

Формулировка задачи:

Найти все натуральные числа в диапазоне [a, b], которые делятся на каждую из своих цифр.

Решение задачи: «Найти все натуральные числа в диапазоне [a, b], которые делятся на каждую из своих цифр»

textual
Листинг программы
  1. Function ChkNum(n As Long) As Boolean
  2. Dim D(0 To 9) As Integer
  3.     nn& = n
  4.     ChkNum = True
  5.     Do
  6.        k% = nn& Mod 10
  7.        D(k%) = D(k%) + 1
  8.        nn& = nn& \ 10
  9.        If nn& = 0 Then Exit Do
  10.     Loop
  11.     For i% = 2 To 9
  12.         If (D(i%) <> 0) Then
  13.            If (n Mod i%) <> 0 Then
  14.               ChkNum = False
  15.               Exit Function
  16.            End If
  17.         End If
  18.     Next i%
  19. End Function
  20.  
  21. Sub Test()
  22.  
  23.     For a& = 100 To 200
  24.         If ChkNum(a&) Then Debug.Print a&
  25.     Next a&
  26.  
  27. End Sub

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

7   голосов , оценка 4.143 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут
Похожие ответы