my 1C. Полезная информация.

Функция Перевод_2в10(Знач Стр2)
     Стр=СокрЛП(Стр2);
     Рез=0;
     Для н=1 по СтрДлина(Стр) Цикл
          Рез=Рез*2+Число(Сред(Стр,н,1));
     КонецЦикла;
     Возврат рез;
КонецФункции
// проверяем
Процедура Сформировать()
     сообщить("0 => "+Перевод_2в10("0"));                     // 0
     сообщить("1 => "+Перевод_2в10("1"));                     // 1
     сообщить("10 => "+Перевод_2в10("10"));                   // 2
     сообщить("100 => "+Перевод_2в10("100"));                 // 4
     сообщить("111 => "+Перевод_2в10("111"));                 // 7
     сообщить("11111010010 => "+Перевод_2в10("11111010010")); // 2002
КонецПроцедуры


	На PORTA.ru ОГРОМНЫЙ выбор портативной техники: MD-плееры CD-плееры MP3-плееры Кассетные плееры Диктофоны Радио Цифр. камеры Сотовые Дешевые ноутбуки