Рекурсия, разложить число Опции

[Nike0]

Помогите пжлста с решением 1 задачки. Вычислите количество различных представлений заданного натурального числа n в виде суммы не менее двух попарно различных натуральных слагаемых. Представления, отличающиеся лишь порядком слагаемых, различными не считаются. Если можете чем-нибудь помочь, пишите, может мне надо толчок какой-то чтобы сам додумал.

[Lapp]

пишите, может мне надо толчок какой-то чтобы сам додумал.

Насчет толчка..
Скажем, так: в рекурсивную процедуру передаешь два параметра: наибольшее из использованных слагаемых и остаток числа. А в процедуре, если остаток нулевой - печатаешь число, если нет - расщепляешь на два в цикле от первого параметра до второго. Первое из полученных чисел записываешь в массив, а второе передаешь рекурсивно вместе с увеличенным на 1 первым параметром. Типа так..

Вот код, но я в нем специально убрал один оператор, так что он не совсем рабочий. Сможешь разобраться, как починить? Если нет - задавай вопросы.. Если да - напиши, чего не хватает (для потомков ).

const
  m=1000;
var
  a: array[1..m]of integer;
  k,n: integer;

procedure Split(j,n: integer);
var
  i: integer;
begin
  if (n=0)and(k>1) then begin
    for i:=1 to k do Write(a[i]:4);
    WriteLn
  end
  else for i:=j to n do begin
    Inc(k);
    a[k]:=i;
    Dec(k)
  end
end;

begin
  Write('n = ');
  ReadLn(n);
  k:=0;
  Split(1,n);
  ReadLn
end.

Успехов!