Program baitoanchiakeo;
uses crt;
var t,x:array[0..20] of integer;
    n,m,i:integer;
procedure inkq(i:integer);
        var j:integer;
        begin
                write(n ,'->');
                for j:=1 to i-1 do write('(',x[j],')');
                writeln('(',x[i], ')');
        end;
procedure try(i:integer);
        var j:integer;
        begin
                for j:= 1 to n  do
                        if j>x[i-1] then
                        begin
                                x[i]:=j;
                                t[i]:=t[i-1]+ j;
                                if (t[i]=n) and (i=m) then inkq(i) else if t[i]<n then
                                        try(i+1);
                                        t[i]:=t[i]-x[i-1];
                        end;
        end;
begin
clrscr;
        readln(n,m);
        x[0]:=0; t[0]:=0;
        try(1);
readln;
end.

thì để chọn ít nhất nhưng tổng số kẹo lại nhiều hơn vế kia thì cứ chọn các viên có giá trị lớn nhất cho đến khi nó vượt quá t / 2 (t là tổng các viên kẹo)

ví dụ ở trên có các viên kẹo là 3 6 3 thì t / 2 = (3 + 6 + 3) / 2 = 6

mình sắp xếp giảm dần lại rồi cứ cộng số viên kẹo, khi nào nó lớn hơn hoặc bằng t / 2 thì break luôn, tiện thể lúc cộng thì tăng cả biến đếm lên 1 vì đề bài bảo in ra số lượng kẹo chứ không phải tổng các viên kẹo