С клавиатуры вводится число 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

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

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

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы