Есть число p.

Необходимо составить все возможные последовательности чисел от 1 до p .

допустим p=4
тогда 6 вариантов:
1. 4 3 2 1
2. 4 3 1 2
3. 4 2 3 1
4. 4 1 3 2
5. 4 2 1 3
6. 4 1 2 3

Для p получается (p-1)! вариантов. Казалось бы элементарные циклы, но бьюсь второй час и ничего путного не придумал. Может у вас есть идеи?

http://yandex.ru/yandsearch?clid=9582&text=Вывести+комбинации+всех+чисел&lr=213


Переходим к обсуждению умственных способностей автора ветки.

(0) высшее образование есть?..

одна рекурсивная процедура.
перебор 3 чисел - это то же самое что перебор двуххх.. индукция.. чему сейчас учат на вышке - ...?

(3)
Рекурсия зло :)

(4) Тогда Битовый сдвиг
wiki:Битовый_сдвиг

(1) вопрос не по числу 7, а по числу p которое может быть пускай 83759863. И реализовать это надо на 1с 7.7 а не с++.

(6)
Проще всего реализовать рекурсию. Вообще элементарно, сложнее - развернуть рекурсию в итерационно. Если чуть-чуть поднапрячься, то можно придумать математическое соответствие произвольному числу от 1 до р! одному набору.

Начали с постановки. ГУТ, но задача какая?

Если количество вариантов - то по-другому решаться может задача.

Методом Монте-Карло можно.

Графы всякие для транспортных задач.

(9) получить все варианты

(0) у тебя во всех вариантах первая четверка. Это условие задачи?

(13) нет. Интересуют все возможные последовотельности чисел.

РусскийВедун, ты мозготрах тебе задачу задали ты и делай.
задача для 1 класса информатики.

"допустим p=4
тогда 6 вариантов: "

Не пойму, почему только 6 вариантов?

+(16) а про перестановку первого элемента забыли

(0) р - чем ограничено сверху?

если разрядность небольшая (ну до 10 например)
то можно полным перебором и отбрасыванием лишних результатов

(0) Составь из заданных цифр максимальное число. В цикле уменьшай на единичку и проверяй ответ на наличие в нем всех заданных цифр.
^^

Мой вариант, под 8-ку правда
Процедура ВыполнитьПеребор(ЗНАЧ СписокЭлементов,ИсходнаяСтрока="",НомерГруппировки=0)
    СлНомерГруппировки=НомерГруппировки+1;
    
    Для Каждого ЭлементСписка Из СписокЭлементов Цикл
        Если ЭлементСписка.Пометка Тогда
            Продолжить;
        КонецЕсли;
        
        ЭлементСписка.Пометка=Истина;
        
        Если СлНомерГруппировки=КоличествоЭлементов Тогда
            Сообщить(ИсходнаяСтрока+ЭлементСписка.Значение);
        Иначе
            ВыполнитьПеребор(СписокЭлементов,ИсходнаяСтрока+ЭлементСписка.Значение,СлНомерГруппировки);
        КонецЕсли;
        
        ЭлементСписка.Пометка=Ложь;
    КонецЦикла;
КонецПроцедуры

Процедура КнопкаВыполнитьНажатие(Кнопка)
    СписокЭлементов=Новый СписокЗначений;
    Для сч=1 По КоличествоЭлементов Цикл
        СписокЭлементов.Добавить(""+сч);
    КонецЦикла;
    
    ВыполнитьПеребор(СписокЭлементов);
КонецПроцедуры