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