Различные суммы числа N через рекурсию Опции

[wEDOK]

очень бы хотелось получить вариант решения такой задачи(использование рекурсии ОБЯЗАТЕЛЬНО):

Для каждого положительного целого числа N будем рассматривать всевозможные его представления в виде суммы одного или нескольких слагаемых. найти все такие представления данного числа.
Например, для 4 таких представлений будет 5: 4, 3+1, 2+2, 2+1+1, 1+1+1+1

[volvo]

Поиском не пользовался, конечно... Потому что вот тут: разложение числа приводилось возможное решение...

[wEDOK]

я пользовался! и где здесь рекурсия?

Сообщение отредактировано: wEDOK - 25.06.2008 20:09

[volvo]

procedure find(num,k,len: smallint);
var i: smallint;
begin
  ...
  else begin
    for i:=1 to k do
      if num-i>=0 then begin
        c[len]:=i;
        find(num-i,i,len+1); { <--- Это что по-твоему ??? }
      end;
  end;
end;

[wEDOK]

дада, я уже все сделал, извините, ничего не соображаю спустя день подготовки )))