P1036 选数

P1036 选数

题目描述

已知 n 个整数 x1,x2,…,xn，以及一个整数 k（k＜n）。从 n 个整数中任选 k 个整数相加，可分别得到一系列的和。例如当 n=4，k＝3，4 个整数分别为 3，7，12，19 时，可得全部的组合与它们的和为：

3＋7＋12=22

3＋7＋19＝29

7＋12＋19＝38

3＋12＋19＝34。

现在，要求你计算出和为素数共有多少种。

例如上例，只有一种的和为素数：3＋7＋19＝29）。

输入输出格式

输入格式：

键盘输入，格式为：

n , k （1<=n<=20，k＜n）

x1,x2，…,xn （1<=xi<=5000000）

输出格式：

屏幕输出，格式为：

一个整数（满足条件的种数）。

输入输出样例

输入样例#1：

4 3
3 7 12 19

输出样例#1：

1

var

x:array[1..21]of longint;

n,k,i,ans:longint;

function check(c:longint):boolean;//检验是不是素数

var

i:longint;

begin

if c=1 then exit(false);

check:=true;

for i:=2 to c div 2 do if c mod i=0 then exit(false);//如果有数能整除它=有因数≠素数

end;

procedure try(l,r,h:longint);

var

i:longint;

begin

if r>k then 

begin

if check(h) then inc(ans)//累加和为素数有多少种

end

else

for i:=l+1 to n do try(i,r+1,h+x[i]);//i为个数（用于循环），r+1为总数（用于退出），x为加起来的和

end;

begin

read(n,k);

for i:=1 to n do read(x[i]);

try(0,1,0);

writeln(ans);

end.