Составить число из количества появлений каждой цифры в числе - VB

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

Пользователь вводит целое положительное число. Составить число из количества появлений каждой цифры в числе.

Код к задаче: «Составить число из количества появлений каждой цифры в числе - 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
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

6   голосов, оценка 3.833 из 5


СДЕЛАЙТЕ РЕПОСТ
Похожие ответы