Различные представление числа N в виде сумм

[Дамир]

Доброго времени суток!
Подскажите пожалуйста, как можно решить следующую задачу:
Реализовать рекурсивный алгоритм, распечатывающий различные представления заданного натурального числа N в виде суммы не менее двух натуральных слагаемых.
Представления, различающиеся лишь порядком слагаемых, различными не считаются.
Заранее благодарен!

[TIN]

Есть одна идейка
Количество слагаемых, на которые будем разбивать, не больше N, поэтому определим его как rand()%(N+1) (+ условие не менее двух).
Сначала берем число и разбиваем на два слагаемых:
первое = rand%N
второе = N - первое
Далее рекурсивно большее из всех слагаемое разбивается (если нужно) на сумму двух.
Какие лучше подобрать данные для хранения и сравнения представлений пока не знаю.

[Дамир]

Благодарю! Еще предложения будут?
Заранее благодарен!

[Min]

предлагаю свё решение:

var N:integer;
    a:array[0..1000] of integer;

function Min(m1,m2:integer):integer;
begin
 if(m1>m2) then Min:=m2
 else Min:=m1;
end;

procedure output(count:integer);
var i:integer;
begin
 write(a[1]);
 for i:=2 to count do
  write('+',a[i]);
 writeln;
end;

procedure p(k,summ:integer);
var i:integer;
begin
 if(summ=N) and (k>2) then output(k-1);
 if summ<N then
 begin
  for i:=1 to Min(N-summ,a[k-1]) do
   begin
    a[k]:=i;
    p(k+1,summ+i);
   end;
 end;
end;

begin
 a[0]:=MaxInt;
 readln(N);
 p(1,0);
 readln;
end.

[evg_m]

http://programmersforum.ru/showthread.php?t=31670