Question

pascal子集和问题

一个集合里有N个数，取S个数和为R。
输入样例1
5（有五个数）10（和为10）
2 2 6 4 5（这个集合）
输出样例2
2 2 6
6 4
输入样例2
5 3 （不用解释了吧）
2 4 3 2 4
输出样例2
no solution!

Answer 1

var
n,m,p,flag,i:longint;
a,b:array[1..1000]of longint;
procedure dfs(now,sum:longint);
var i,j,s:longint;
begin
if(now=n+1) then exit;
if (sum=m) and (p>1) then begin
for i:=1 to p do write(a[b[i]],' ');
writeln;
flag:=1;
end;
for i:=now+1 to n do
if a[i]+sum<=m then begin
inc(p);
b[p]:=i;
dfs(i,sum+a[i]);
dec(p);
end;
end;

begin
read(n,m);
for i:=1 to n do read(a[i]);
dfs(0,0);
if flag=0 then writeln('no solution!');
end.