---

Функция КоличествоЧиселВСтроке(ИсходнаяСтрока)
    Количество = 0;
    МассивСлов = СтрРазделить(ИсходнаяСтрока, " ", Ложь);
    
    Для Каждого Слово Из МассивСлов Цикл
        Слово = СокрЛП(Слово);
        Если Слово = "" Тогда Продолжить КонецЕсли;
        
        // Проверяем, состоит ли слово только из цифр
        ТолькоЦифры = Истина;
        Для Индекс = 1 По СтрДлина(Слово) Цикл
            Символ = Сред(Слово, Индекс, 1);
            Если Символ < "0" Или Символ > "9" Тогда
                ТолькоЦифры = Ложь;
                Прервать;
            КонецЕсли;
        КонецЦикла;
        
        Если ТолькоЦифры Тогда
            // Дополнительные условия: длина > 1 и первый символ не '0'
            Если СтрДлина(Слово) > 1 И Лев(Слово, 1) <> "0" Тогда
                Количество = Количество + 1;
            КонецЕсли;
        КонецЕсли;
    КонецЦикла;
    
    Возврат Количество;
КонецФункции