Дано натуральное число п. Проверить, будут ли все цифры числа различными.

@SpartanecLexa · Регистрация: 24.10.2012

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

@antonboom · 22.04.2013, 15:26

Подоразумевается ли то, что не может быть ни одной пары похожей? Допустим, можно ли 22914?

@~~Апострофф~~ · 22.04.2013, 15:39

Visual Basic

sub test
dim a(9)as long,i as long,s as string
s=inputbox("Введите число")
for i=1 to len(s)
  a(val(mid$(s,i,1)))=a(val(mid$(s,i,1)))+1
  if a(val(mid$(s,i,1)))>1 then msgbox "Есть повторы":exit sub
next
msgbox "Нет повторов"
end sub

@SpartanecLexa 0 / 0 / 1 Регистрация: 24.10.2012 Сообщений: 252
		1
	Дано натуральное число п. Проверить, будут ли все цифры числа различными. 22.04.2013, 13:41. Показов 2207. Ответов 2 Метки нет (Все метки) Дано натуральное число п. Проверить, будут ли все цифры числа различными. 0

@antonboom bmstu-team 301 / 136 / 91 Регистрация: 10.01.2012 Сообщений: 420 Записей в блоге: 10
	22.04.2013, 15:26	2
	Подоразумевается ли то, что не может быть ни одной пары похожей? Допустим, можно ли 22914? 0

	22.04.2013, 15:39

Дано натуральное число п. Проверить, будут ли все цифры числа различными.

Решение