Функция, определяющая наличие числа в строке

 Функция ЭтоЧисло(Строка) // Экспорт

	

	РезультатЭтоЧисло = 1; // Истина

	

	ДлинаСтроки = СтрДлина(Строка);

	

	Для i = 1 По ДлинаСтроки Цикл

		

		Символ = Лев(Строка, 1);

		Строка = Сред(Строка, 2);

		

		Если Не (Символ = "1" Или Символ = "2" Или Символ = "3" Или Символ = "4" Или Символ = "5" Или Символ = "6" Или Символ = "7" Или Символ = "8" Или Символ = "9" Или Символ = "0") Тогда 

			РезультатЭтоЧисло = 0; // Ложь

			Прервать;

		КонецЕсли;

	

	КонецЦикла;

		

	Возврат РезультатЭтоЧисло;

	

КонецФункции // ЭтоЧисло