NOIP提高组初赛试题汇编(2002-2009)(6)

NOIP提高组初赛试题汇编(2002-2009)noip考试者必备我也是马上要考了!!!

②__________

fori:=j+1tondob[i]:=0;③__________fori:=1tokdoforj:=1tondo

if(a[i,j]=1)and(b[j]=0)or④__________thenp:=true;

end;

if⑤__________

thenwriteln(‘找不到！’)elsefori:=1tondo

if(b[i]=1)thenwriteln(‘物质’,i,’需要’)

elsewriteln(‘物质’,i,’不需要’);

end.

NOI2002初赛试题参考答案一、选择题题号123答案CAD题号1112答案CB

456ACB1314CB789BDA1516CB10D

17181920CBCB

二、问题解答

1、442、N0=(K－1)Nk+1三、读程序写结果1、RRRRWWBBBB2、300313、15.00

四、补充程序题一

1、c[n+1]2、(yu+d[j1]<c[j1+1])3、yu:=yu+d[j1];4、e[j0]:=s;5、write(e[I]:4);题二：

1、PAND(B[0]=0)2、B[J]：=1；3、P：=FALSE；

4、（A[I，J]=－1）AND（B[J]=1）5、P