讨论 / 选数AC100题解(Pascal)
tchwr 2015-11-02 21:23:40
点我顶贴 收藏 删除
var a,b:array[1..21]of longint;

n,k,fang:integer;

i,ans:longint;

function sushu(answer:integer):boolean;

var i:longint;

boo:boolean;

begin

boo:=true;

for i:=2 to trunc(sqrt(answer)) do

if answer mod i=0 then begin

boo:=false;

break;

end;

if (boo=true)and(answer>1) then exit(true)

else exit(false);

end;

procedure zuhe(ii,k1:integer);

var i:integer;

fi:boolean;

begin

if k1=k then begin

fi:=sushu(ans);

if fi=true then fang:=fang+1;

exit;

end;

for i:=ii to n do begin

ans:=ans+a[i];

k1:=k1+1;

zuhe(i+1,k1);

ans:=ans-a[i];

k1:=k1-1;

end;

end;

begin

read(n,k);

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

fang:=0;ans:=0;

zuhe(1,0);

write(fang);

end.

#1 tchwr@2015-11-02 21:24:04
回复 删除
由 tchwr 在 2015-11-03 13:22:34 提交,有效耗时0ms,如果您发现任何评测错误,请点击这里提交

测试点1 Accepted / 0ms / 260kB

测试点2 Accepted / 0ms / 260kB

测试点3 Accepted / 0ms / 260kB

测试点4 Accepted / 0ms / 260kB

测试点5 Accepted / 0ms / 260kB

测试点6 Accepted / 0ms / 260kB

测试点7 Accepted / 0ms / 260kB

测试点8 Accepted / 0ms / 260kB

测试点9 Accepted / 0ms / 260kB

测试点10 Accepted / 0ms / 260kB

#2 tchwr@2015-11-02 21:25:05
回复 删除
由 tchwr 在 2015-11-03 13:22:34 提交,有效耗时0ms

测试点1 Accepted / 0ms / 260kB

测试点2 Accepted / 0ms / 260kB

测试点3 Accepted / 0ms / 260kB

测试点4 Accepted / 0ms / 260kB

测试点5 Accepted / 0ms / 260kB

测试点6 Accepted / 0ms / 260kB

测试点7 Accepted / 0ms / 260kB

测试点8 Accepted / 0ms / 260kB

测试点9 Accepted / 0ms / 260kB

测试点10 Accepted / 0ms / 260kB

#3 tchwr@2015-11-02 21:26:23
回复 删除
刚才手抖,发了两次。

#4 helloworld!@2016-07-20 20:53:29
回复 删除

#5 李安灏@2016-08-30 02:26:01
回复 删除
额额额额额额额额额额额额额额额额额额额额额额额额额额额额额额额额额额额额额额额额额额额额额额额额额额额额额额额额额额额额额额额额额额额额额额额额额额额额额额额额额额额额额额额额额额额额额额额额额额额额额额额额额额额额额额额额额额额额额额额额额额额额额额额额额额额额额额额额额额额额额额额额额额额额额额额额额额额额额额额
#6 LisaXu@2017-12-10 04:05:48
回复 删除
看看看看。。。不不不不不不不不。。。。懂懂懂懂懂。。。。
#7 LisaXu@2017-12-10 04:06:07
回复 删除
这简直了!!!
查看更多回复
提交回复