Как определить количество вариантов

Разрядность = 64;

// Массив цифр числа. Старший разряд в начале массива, младший - в конце.
РазрядыЧисла = Новый Массив(Разрядность);

// Инициализация: самое первое (наименьшее) число,
// удовлетворяющее условиям, состоит из одних единиц.

Для Индекс = 0 По Разрядность - 1 Цикл
	РазрядыЧисла[Индекс] = 1;
КонецЦикла;

// Подсчет вариантов.

КоличествоВариантов = 0;

Пока РазрядыЧисла[0] <> 10 Цикл
	
	// Засчитываем и выводим текущую комбинацию.
	КоличествоВариантов = КоличествоВариантов + 1;
	
	//ПредставлениеЧисла = СтрСоединить(РазрядыЧисла);
	//Сообщить(ПредставлениеЧисла);
	
	// Вычисляем следующую комбинацию цифр, увеличивая младший разряд на 1.
	Индекс = Разрядность - 1;
	РазрядыЧисла[Индекс] = РазрядыЧисла[Индекс] + 1;
	
	Если РазрядыЧисла[Индекс] <> 10 Тогда
		Продолжить;
	КонецЕсли;
	
	// Если увеличивать уже некуда, увеличиваем на 1 предшествующий разряд.
	// И так по цепочке к старшему разряду.

	Пока Индекс > 0 И РазрядыЧисла[Индекс] = 10 Цикл
		Индекс = Индекс - 1;
		РазрядыЧисла[Индекс] = РазрядыЧисла[Индекс] + 1;
	КонецЦикла;
	
	// Остановились на некотором разряде.
	// Чтобы последовательность цифр была неубывающей,
	// все последующие цифры должны быть равны той, на разряде которой остановились.
	
	// Например, было число 1299. После увеличения на 1 получили 13ХХ.
	// Значит подходящим числом станет 1333.
	
	Пока Индекс + 1 < Разрядность Цикл
		РазрядыЧисла[Индекс + 1] = РазрядыЧисла[Индекс];
		Индекс = Индекс + 1;
	КонецЦикла;
	
	// Обход вариантов закончится тогда, когда старший разряд будет содержать число 10.
	// Это случится после работы с числом вида 999..9
	
КонецЦикла;

ПоказатьПредупреждение(, КоличествоВариантов);