ДлинаНомера=СтрДлина(НомерДок);
Для инд=0 По ДлинаНомера-1 Цикл
ПозицияНеЦифровойСимвол=ДлинаНомера-инд;
Код=КодСимвола(НомерДок, ПозицияНеЦифровойСимвол);
Если Код<48 ИЛИ Код>57 Тогда
Прервать;
КонецЕсли;
ПозицияНеЦифровойСимвол=ПозицияНеЦифровойСимвол-1;
КонецЦикла;
НомерДок=Число(Сред(НомерДок, ПозицияНеЦифровойСимвол+1));
Чтобы обнаруживать ошибки, программист должен иметь ум, которому доставляет удовольствие находить изъяны там, где, казалось, царят красота и совершенство. Фредерик Брукс-младший