ник: Кабан
ну что ты еще есть варианты! :))
'?dec2bin(19)
'11001
Function dec2bin$(a&)
If a = 0 Then Exit Function
dec2bin = (a Mod 2) & dec2bin((a \ 2))
End Function
dec2bin=1496 ms 00000101011000011
dec2bin=1492 ms 00000101011000011
dec2bin=1518 ms 00000101011000011
dec2bin=1516 ms 00000101011000011
dec2bin=1508 ms 00000101011000011
dec2bin=1494 ms 00000101011000011
dec2bin=1504 ms 00000101011000011
dec2bin=1503 ms 00000101011000011
dec2bin=1517 ms 00000101011000011
dec2bin=1493 ms 00000101011000011
|
правда я не понимаю - хороший это результат или нет?