Составить число из количества появлений каждой цифры в числе - 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