Задача c циклом в Visual Basic - VB

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

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

Помогите пожалуйста Найти все двузначные числа, сумма цифр которых не меняется при умножении числа на 2,3,4,5,6,7,8,9 вот мой код, но он не работает... что-то не доделал

Решение задачи: «Задача c циклом в Visual Basic»

textual
Листинг программы
Sub main()
Dim n&, a&, b&
For n = 2 To 9
    Debug.Print vbLf; "при умножении на"; n
    For a = 1 To 9
        For b = 0 To 9
            If a + b = SumDig((10 * a + b) * n) Then Debug.Print 10 * a + b;
        Next
    Next
Next
End Sub
 
Function SumDig&(i&)
'возвращает сумму цифр числа
While i
    SumDig = SumDig + i Mod 10
    i = i \ 10
Wend
End Function

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


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

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

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