递归...

我知道是递归,但不知如何,看不明白

递归法是？不懂

其他方法
分析：
等式中后一个数必须大于等于前一个数，因为这个可以1、避免重复2提高效率

我们用一个数组a[i]来记录拆分的数字，用b[i]记录剩下的数字。K记录第几个拆分的数字。每次拆分都可以把a[i]都打印出来。

把剩下的数字b[i]在进行拆分，并且是从i开始拆分的。Find(b[i],i,k+1)


program cf;
var a,b:array[1..100] of integer;
    n,i:integer;

procedure find(start,m,k:integer);
{从start开始，对m进行拆分，拆分是第k个数}
var i,j:integer;
begin


   for i:=start to (m div 2) do    {只要从start 到m的一个半，可以避免重复}
     begin
         write(n,'=');
        a[k]:=i;b[k]:=m-i;
        for j:=1 to k do write(a[j],'+');
        writeln(b[k]);
        find(i,b[k],k+1);
     end;

end;

begin
assign(input,'word.in');
assign(output,'word.out');
reset(input);
rewrite(output);
readln(n);

find(1,n,1);

close(input);
close(output);
end.

呵呵~~
是辗转相除法拉....
具体可在网上搜有关帖哦
晕~~~~