Zahl in Summanden zerlegen

[fiasko]

Achso, ja, wer lesen kann ist klar im Vorteil ...


Das ist aber auch ganz einfach, man ersetzt die for-Schleife durch:

Delphi-Quellcode:

  for i:=l to ((z-n+k) div k)+1 do
    zahl(n,k-1,z,s+i,i+1,str+inttostr(i)+' ');

und das sollte es sein.