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

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

1.

75名儿童到游乐场去玩。他们可以骑旋转木马，坐滑行铁道，乘宇宙飞船。已知其中20人这三种东西都玩过，55人至少玩过其中的两种。若每样乘坐一次的费用是5元，

名儿童没有玩过其中任何一种。游乐场总共收入700，可知有

2.已知a,b,c,d,e,f,g七个人中，a会讲英语；b会讲英语和汉语；c会讲英语、意大利语

和俄语；d会讲汉语和日语；e会讲意大利语和德语；f会讲俄语、日语和法语；g会讲德语和法语。能否将他们的座位安排在圆桌旁，使得每个人都能与他身边的人交谈？如果可以，请以“ab”开头写出你的安排方案：。四．阅读程序阅读程序（（共4题，每题8分，共计32分）1．programprogam1;var

u:array[0..3]ofinteger;a,b,c,x,y,z:integer;begin

read(u[0],u[1],u[2],u[3]);

a:=u[0]+u[1]+u[2]+u[3]-5;

b:=u[0]*(u[1]-u[2]divu[3]+8);c:=u[0]*u[1]divu[2]*u[3];

x:=(a+b+2)*3-u[(c+3)mod4];

y:=(c*100-13)divadiv(u[bmod3]*5);

if((x+y)mod2=0)thenz:=(a+b+c+x+y)div2;z:=(a+b+c–x-y)*2;writeln(x+y-z);

end.输入：2574输出：

。

2．programprogram2;var

i,number,ndata,sum:integer;data:array[1..100]ofinteger;

proceduresolve(s,sign,n:integer);vari:integer;begin

fori:=stondatadobegin

inc(sum,sign*(numberdiv(n*data[i])));solve(i+1,-sign,n*data[i]);end;end;begin

read(number,ndata);sum:=0;

fori:=1tondatadoread(data[i]);solve(1,1,1);writeln(sum);