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

Функция DecToBase(Знач Десятичное=0, База)
     Десятичное=Число(Десятичное);
     Если Десятичное=0 тогда
          Результат="0";
     Иначе
          Результат="";
          Пока Десятичное<>0 Цикл
               Поз = Десятичное%База;
               Результат = Сред("0123456789ABCDEF",Поз + 1,1) + Результат;
               Десятичное = Цел(Десятичное/База);
          КонецЦикла;
     КонецЕсли;
     Возврат Результат;
КонецФункции


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