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

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

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