Задача О ПОДСТАНОВКАХ Опции

[K Y S K A]

КАК БЕЗ РЕКУРСИИ ВЫВЕСТИ НА ЭКРАН ВСЕ ПОДСТАНОВКИ ИЗ N ЭЛЕМЕНТО В ПОРЯДКЕ УБЫВАНИЯ ЧИСЛА??
пРИМЕР ВХОД ДАННЫХ
3
вЫХОД:
321
312
231
213
132
123

[volvo]

Интересно можно ли эту программку как-то исправить чтобы она работала так?

Интересно, а зачем что-то исправлять? Есть же стандартный алгоритм "Сочетания из N по M":

Program sochets;
var
   i,j,n,m: integer;
   a:array[0..100] of integer;

Procedure use;
var   i : integer;
begin
  writeln;
  for i:=1 to m do write(a[i]:3)
end;

Begin
  read(n, m);
  for i:=0 to m do a[i]:=i;
  repeat
     use;
     i:=m;
     while a[i]=n-m+i do dec(i);
     inc(a[i]);
     for j:=i+1 to m do a[j]:=a[j-1]+1;
  until i=0;
end.

Только не говори, что тебе подмножества тоже нужны