Дано натуральное число 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д