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

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


textual

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

    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



Похожие ответы
  1. Дано натуральное трехзначное число. Определить цифры этого числа (K, L, M) и выяснить, можно ли построить произвольный треугольник K, L, M. Пожалуйста!!

  1. Дано четыре числа. Пожалуйста определите сумму наибольшего и квадрата наименьшего чисел.

  1. Помогите!!! Вот задача: Компьютер загадывает число от 0 до 100 Пользователь начинает отгадывать число. Если разница между загаданным числом и предложенным пользователем больше 30 выводится сообщение – Холодно Если разница от 20 до 30 – Выводится «тепло» От 10 до 20 – «Горячо» От 5 до 10 – «Почти угадал» От 1 до 5 – «Еще чуть-чуть!!!» Сделайте подсчет количества попыток за которые отгадано число

  1. В массиве A[N] найти второе по значению число (т.е. вывести на печать число, которое меньше максимального элемента массива, но больше всех других его элементов)

  1. Cоставить программу нахождения числа, которое образуется из данного натурального числа при записи его цифр в обратном порядке.Например,для числа 1234 получаем ответ 4321.

  1. Дано четырехзначное число. Если оно читается слева направо и справа налево одинаково, то вывести yes, иначе no. помогите решить на VB

  1. Дано простое число. Составить функцию, которая будет находить следующее за ним простое число!

  1. Доброго дня, товарищи-программисты. Имеется задача: «Дано натуральное число n. Можно ли его представить в виде суммы квадратов трех натуральных чисел? Если можно, то вывести на экран такие тройки x, y и z натуральных чисел, что x2 + y2 + z2 = n. Решения, которые получаются перестановкой x, y и z, считать совпадающими». Не прошу решать задачу полностью, только лишь подкинуть идею, как исключить вариант с перестановкой.

  1. Доброго времени суток всем, ребята, помогите пожалуйста нам начали преподавать Visual basic 6.0, Pадача элементарная а реализовать я ее не могу, птм что ну не понимаю я функциональное программирование условие: Дано натуральное число. Верно ли, что в данном числе цифра А встречается более двух раз. А задается

  1. Число задумывает пользователь, а компьютер его отгадывает. Хорошо бы, чтобы компьютер действовал не "методом тыка", а "методом научного тыка", который отличается тем, что каждый следующий тык основывается на результатах предыдущих тыков и сокращает количество возможных значений более чем на 1.