Вывод чисел - VB (59290)

Узнай цену своей работы

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

Вывести все числа, которые составлены из цифры только одного вида (например, 1111, 222, 9). Пример. Вход: 3 908 33 72 Выход: 33. (не могу составить, помогите плз)

Решение задачи: «Вывод чисел»

textual
Листинг программы
str = "..."  'исходная строка
Arrstr() = Split(str) ' разбивка строки на отдельные числа и занесение их в массив
For i = 0 To UBound(Arrstr)
If Len(Arrstr(i)) > 1 And Arrstr(i) Mod CDbl(String(Len(Arrstr(i)), "1")) = 0 Then MsgBox (Arrstr(i)) 'перебор элементов массива и вывод чисел с одинаковыми цифрами
Next i

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

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

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