Составить число из количества появлений каждой цифры в числе - VB
Формулировка задачи:
Пользователь вводит целое положительное число. Составить число из количества появлений каждой цифры в числе.
Решение задачи: «Составить число из количества появлений каждой цифры в числе»
textual
Листинг программы
Dim cnt(9) txt = InputBox("Ввод", , "1514615735689") For i = 1 To Len(txt) t = CInt(Mid(txt, i, 1)) cnt(t) = cnt(t) + 1 Next t = "" For i = 0 To 9 If cnt(i) > 0 Then t = t & cnt(i) Next MsgBox t
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д