С клавиатуры вводится число N Определить,может ли оно быть двоичным - VB

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

2)С клавиатуры вводится число N.Определить,может ли оно быть двоичным(т.е. состоять только из 0 и 1).

Код к задаче: «С клавиатуры вводится число N Определить,может ли оно быть двоичным - VB»

textual
Function IsBin(s$)
Dim i&
  i = 1 - (Left(s, 1) = "-")
  IsBin = Len(Replace(Replace(s, "0", "", i), "1", "", i)) = 0
End Function

10   голосов, оценка 4.000 из 5


СОХРАНИТЬ ССЫЛКУ