Дано натуральное число N. Найти наименьшее число - VB
Формулировка задачи:
помогите в решении задачи
Дано натуральное число N. Найти наименьшее число М (N< М< 2N), которое делится на сумму цифр числа N (без остатка). Если такого числа нет, то вывести слово «нет». Пример. N = 12 345, М= 12 360. Число 12 360 делится на число 15 — сумму цифр числа N.
Решение задачи: «Дано натуральное число N. Найти наименьшее число»
textual
Листинг программы
- Private Sub Command1_Click()
- Dim M As Integer, N, sum As Byte
- N = InputBox("N")
- M = 0
- For M = N + 1 To 2 * N - 1
- For j = 1 To Len(N)
- sum = sum + Mid(N, j, 1)
- Next j
- If M Mod sum = 0 Then MsgBox M: Exit Sub
- sum = 0
- Next M
- If M = 0 Then MsgBox "НЕТ"
- End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
