С клавиатуры вводится число N Определить,может ли оно быть двоичным - VB
Формулировка задачи:
2)С клавиатуры вводится число N.Определить,может ли оно быть двоичным(т.е. состоять только из 0 и 1).
Решение задачи: «С клавиатуры вводится число N Определить,может ли оно быть двоичным»
textual
Листинг программы
Function IsBin(s$) Dim i& i = 1 - (Left(s, 1) = "-") IsBin = Len(Replace(Replace(s, "0", "", i), "1", "", i)) = 0 End Function