Дано натуральное число 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

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


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

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

9   голосов , оценка 4 из 5
Похожие ответы