Проверить истинность высказывания: "Все цифры данного числа различны" - VB

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

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

Дано трехзначное число. Проверить истинность высказывания: "Все цифры данного числа различны"

Решение задачи: «Проверить истинность высказывания: "Все цифры данного числа различны"»

textual
Листинг программы
Function ChkNum(n as long) As boolean
   S$=Cstr(n)
   L%=len(S$)
   if L%>9 then '::: Принцип Дирихле
      ChkNum=False  
   else
      ChkNum=True
      for i%=1 to L%-1
          if Instr(mid$(S$,2),left$(S,1)) <> 0 then
            ChkNum=False
            Exit For
          Else
            S$=mid$(S$,2)
          End if
      Next i%
End Function

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


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

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

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