Вывод чисел

@Stolz · Регистрация: 28.10.2014

Author24 — интернет-сервис помощи студентам

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

@Казанский · 20.02.2015, 21:23

Свежая мысль: все искомые числа <100 кратны 11, <1000 кратны 111 и т.д.

@chumich · 20.02.2015, 23:17

Сообщение от Казанский

Свежая мысль

"MSDN" к свежей мысли

:

Visual Basic

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

@Stolz 0 / 0 / 0 Регистрация: 28.10.2014 Сообщений: 14
		1
	Вывод чисел 20.02.2015, 20:38. Показов 1188. Ответов 2 Метки нет (Все метки) Вывести все числа, которые составлены из цифры только одного вида (например, 1111, 222, 9). Пример. Вход: 3 908 33 72 Выход: 33. (не могу составить, помогите плз) 0

@Казанский 15146 / 6419 / 1731 Регистрация: 24.09.2011 Сообщений: 9,999
	20.02.2015, 21:23	2
	Свежая мысль: все искомые числа <100 кратны 11, <1000 кратны 111 и т.д. 2

	20.02.2015, 23:17

Вывод чисел

Решение