Функция ЭтоЧисло(Строка) // Экспорт РезультатЭтоЧисло = 1; // Истина ДлинаСтроки = СтрДлина(Строка); Для i = 1 По ДлинаСтроки Цикл Символ = Лев(Строка, 1); Строка = Сред(Строка, 2); Если Не (Символ = "1" Или Символ = "2" Или Символ = "3" Или Символ = "4" Или Символ = "5" Или Символ = "6" Или Символ = "7" Или Символ = "8" Или Символ = "9" Или Символ = "0") Тогда РезультатЭтоЧисло = 0; // Ложь Прервать; КонецЕсли; КонецЦикла; Возврат РезультатЭтоЧисло; КонецФункции // ЭтоЧисло