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