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

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

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


textual

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

Function IsBin(s$)
Dim i&
  i = 1 - (Left(s, 1) = "-")
  IsBin = Len(Replace(Replace(s, "0", "", i), "1", "", i)) = 0
End Function
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

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

Источник
Похожие ответы