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

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

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

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

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

textual
Листинг программы
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

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

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