Дано натуральное число п. Проверить, будут ли все цифры числа различными. - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д