Уведомления
Очистить все
Конфигурирование, программирование, администрирование, общие вопросы.
1
Записи
1
Пользователи
0
Likes
353
Просмотры
Создатель темы 13/02/2020 7:28 дп
Функция Перевод_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
КонецПроцедуры