宁波市第20届小学生计算机程序设计初赛试题
（说明：考试时间90分钟，满分120分）
一、选择题(每小题2分，共40分)
下列各题A、B、C、D四个选项中，只有一个选项是正确的，请将正确选项写在答题卷相应位置上，答在试卷上不得分。
1、一个完整的计算机系统应包括____。
A主机，键盘和显示器B计算机及其外部设备
C系统硬件和系统软件D硬件系统和软件系统
2、十进制数2005转换为二进制，结果是（）。
A、11111010101B、11000101101C、11111001011D、10111010101
3、下列电子邮件地址，正确的是()。
Ajohn@hotmail.comBcai@jcc.pc.tool@rf.edu.jp
C162.105.111.22Dwww.sohu.com
4、彩色显示器所显示的五彩斑斓的色彩，是由红色，蓝色和（）色混合而成的
A、紫色B、白色C、黑色D、绿色E、橙色
5、目前世界上计算机的工作原理是________，它来源于________提出的________原理。
A、存储程序和程序控制、冯。诺依曼、程序设计
B、存储程序控制、冯。诺依曼、存储程序和程序控制
C、存储程序、Taring、程序控制
D、存储程序控制、Turing、程序设计
6、关于计算机病毒，下列说法正确的是（）
A、病毒是由软盘表面粘有灰尘造成的
B、病毒常隐藏在数据文件或系统中，具有隐蔽性和潜伏性
C、大部分病毒不具有传染性和破坏性
D、病毒会对计算机造成轻或重的损害，但制造病毒的人并不构成犯罪
7、计算机网络的目标是实现（）。
A、数据处理B、文献检索
C、资源共享和信息传输D、信息传输
8、目前比较流行的网络编程语言是()
A、JavaB、FoxPrlC、PascalD、C
9、根据域名代码规定，域名为www.tinghua.edu.cn表示的网站类别应是（）。
A、教育机构B、军事部门C、商业组织D、非营利组织
10、计算机的硬件系统包括（）。
A、运算器、控制器、存储器、输入设备、输出设备
B、控制器、运算器、输入和输出设备
C、中央处理器、输入和输出设备
D、主机和键盘、显示器
11、算法是指（）
A、为解决问题而编制的计算机程序
B、为解决问题而采取的方法与步骤
C、为解决问题需要而采用的计算机编程语言
D、为解决问题而采用的计算方法
12、Internet上访问Web信息时用的工具是浏览器。目前常用的Web浏览器之一是（）。
A、InternetExplorerB、OutlookExpress
C、GoogleD、Flash
13、小明打算向在远北京工作的叔叔发送电子邮件，下面的说法中，正确的是（）
A、小明叔叔的电脑必须开机，否则接收不到小明的电子邮件
B、小明可以将自己最近的一张照片以附件的形式发送给叔叔
C、只有小明的电脑与互联网保持连接状态，才能书写邮件内容
D、小明不能把祝福的邮件同时发送给他远在天津读书的小阿姨
14、某种计算机的内存容量是640K，这里的640K容量是指（）个字节
A、640B、6401000C、6401024D、64010241024
15、以下有关操作系统的叙述中，哪一个是错误的（）
A、操作系统管理着系统中的各种资源
B、操作系统应为用户提供良好的界面
C、操作系统是资源的管理者和仲裁者
D、操作系统是计算机系统中的一个应用软件
16、下列四项中，合法的IP地址是()
A、190．220．5B、206．53．3．78
C、206．53．312．78D、123，43，82，220
17、目前世界上最大的计算机互联网络是（）
A、ARPA网B、IBM网C、INTERNETD、INK.ET
18、下列计算机语言中，CPU能直接识别的是（）。
A、自然语言B、高级语言C、汇编语言D、机器语言
19、设A1=ture,A2=False,A3=True表达式A1ORA2ANDA3的值为______。
A、FALSEB、TRUEC、0D、1
20、有下列程序：
fori=7to90begin
i:=i+5;
write(i);
end;
共执行循环次数是（）。
A、14B、15C、16D、17
二、读程序(每空6分，共30分)
请阅读下列各题程序，并将程序的正确运行结果写在答题卷相应位置上，答在试卷上不得分。
1、vara,b,c,d,e:integer;
begin
a:=79;b:=34;c:=57;d:=0;e:=-1;
if(ac)thend:=d+e
elseif(d+10
elsed:=e-a;
writeln(d);
end.
程序运行结果：
2、vari,j:integer;
str1,str2:string;
begin
str1:=''pig-is-stupid'';
str2:=''clever'';
str1[1]:=''d'';str1[2]:=''o'';
i:=8;
forj:=1to6dobegin
str1[i]:=str2[j];inc(i);
end;
writeln(str1);
end.
程序运行结果：
3、varm,n:integer;beginm:=18;n:81;whilem<>ndobeginwhilem>ndom:=m–n;whilen>mdon:=n–m;end;writeln(m);end
程序运行结果：
三、程序填空(每空5分，共30分)
请阅读下列各题的题意及程序，并将程序的空缺部分填空完善，填空的内容写在答题卷相应位置上，答在试卷上不得分。
1下列程序用来求sum=1+1/12+1/23+...+1/a(n+1),直到累加到第30项为止,试选择正确一项填入空格处______。programsum(output);vars,a:real;n:integer;begins:=1.0;n:=0repeat();a:=1/();s:s+auntiln=29;wrileln(''n='',n:2;s='',s:6:3)end.
2函数FN使用递归方法求1+2+3+……+N。
其返回值为：当N〈1，则返回0；
当N〉=1，则返回1+2+3+。。。+N的值。
请填空完成它
functionfn(n：integer)：integer；
begin
ifn〈1then
fn：=0
else
ifn=1then
fn：=______;
else
fn：=fn(______)+n;
end；
3孪生素数是指两个相差为2的素数，例如：3和5，5和7，11和13等。
下面的程序可输15对孪生素数，其中函F判断整数A是否为素数。
programp(output)；
var
k，n：integer；
functionf(a：integer)：boolean；
var
k：integer；
flag：boolean；
begin
flag：=__________；
k：=2；
while(k〈=adiv2〉and________do
ifamodk=0then
____________
else
k：=k+1;
f：=flag;
end；
begin
n：=0；
k：=2；
repeat
iff(k)and_________then
begin
n：=n+1；
writeln(k，k+2)
end；
k：=k+1
untiln=15
end.
一、选择题(每小题2分，共40分)
1 2 3 4 5 6 7 8 9 10 11 12 13 D A A D B B C A A A B A B 14 15 16 17 18 19 20 ? C D B C D B D 二、阅读程序，并写出程序的正确运行结果(每空6分，共30分)
1、程序运行结果：-12、程序运行结果：mo
?
3、程序运行结果：94、程序运行结果：(1)n:=n+1;(2)(n(n+1))
三、程序填空(每空5分，共30分)
1、①N或1②N-1③TRUE
?
2、④FLAG或FLAG=TRUE⑤FLAG：=FALSE⑥F(K+2)=TURE或F(K+2)
宁波市第21届小学生计算机程序设计初赛试题
一、选择题(每小题2分，共40分)下列各题A、B、C、D四个选项中，只有一个选项是正确的，请将正确选项写在答题卷相应位置上，答在试卷上不得分。1、CPU包括的两部分是（??）。???A、输入、输出设备?????????????B、存储器与运算器???C、运算器与控制器?????????????D、存储器与控制器2、与十进制数100等值的二进制数是（??）。?A、00100110????B、1100100????C、11001001????D、110001103、字符“a”的ASCII码为97，则字符“s”的ASCII码是（??）。A、115?????B、98?????C、116?????D、1144、计算机的鼠标是（??）。A、输入设备????????????????B、输出设备C、存储器??????????????????D、运算器5、windows平台下，下列合法的URL地址是（??）。?A、ftp://101.20.3???B、http:/www.flower.com.cn?C、http://grade.ting.edu.cn???????????D、http://www.sohu.com\aa.asp6、一台计算机的存储容量是256MB，它相当于（??）字节。A、25610001000?????B、1281024??C、25610241024?D、256102410007、计算机网络的目标是实现（??）。?A、数据处理????????????????????B、文献检索?C、资源共享和信息传输?????????????D、信息传输8、通过Internet发送或接收电子邮件(E-mail)的首要条件是应该有一个电子邮件地址，它的正确形式是（??）。A、用户名@域名?????????????????B、用户名#域名C、用户名/域名??????????????????D、用户名.域名9、网址http://www.tinghua.edu.cn中的“cn”代表的是（??）。?A、域名????B、服务器名???C、IP地址???D、国家10、计算机的硬件系统包括（??）。???A、运算器、控制器、存储器、输入设备、输出设备???B、控制器、运算器、输入和输出设备???C、中央处理器、输入和输出设备???D、主机和键盘、显示器11、下列属于应用软件的是（??）。???A、JAVA语言??????B、linux????C、pascal?????D、photoshop?12、下列对Web浏览器InternetExplorer的说法中，正确的是（??）。???A、InternetExplorer是一个文件???????B、InternetExplorer是一个命令???C、InternetExplorer是一个系统软件????D、InternetExplorer是一个应用软件?13、下列关于计算机病毒的叙述中，正确的选项是（??）？?A、计算机病毒不具有潜伏性?B、一旦计算机关闭，计算机病毒便可消失?C、只要不上不明网站，计算机就不会感染计算机病毒D、定时查杀病毒是保护计算机的有效手段之一?14、小明正在用word给奶奶写电子邮件，此时的邮件内容保存在（??）。?A、硬盘上????B、计算机屏幕??????C、内存??????D、键盘?15、在计算机内部，信息交换的形式是（??）？?A、ASCII码B、十六进制C、十进制D、二进制?16、TCP/IP指的是（??）。?A、网卡??B、网络操作系统?C、连网专用设备??D、一种网络通信协议?17、下面有关计算机的特点叙述，不正确的是（??）？?A、运算速度快???B、有记忆和逻辑判断能力???C、具有自动执行程序的能力???D、至今没有任何人能给出如何求解方法的难题，计算机也都能求出解来?18、下列对因特网的功能的说法中，最贴切的是（??）。?A、将计算机连接起来???B、发送电子邮件??C、在线交流?D、资源共享?19、为了让计算机完成一个完整的任务，而编制的一串指令序列称为（??）。A、密码?????B、口令??????C、软件??????D、程序?20、要将X、Y两个变量的值互换，正确的写法是（??）。A、X=Y:Y=X?B、Y=X:X=Y?C、X=X+Y:X=X-Y:Y=X-Y?D、X=X+Y:Y=X-Y:X=X-Y?二、读程序(每小题7.5分，共30分)请阅读下列各题程序，并将程序的正确运行结果写在答题卷相应位置上，答在试卷上不得分。?1、X1：=3；??X2：=8；??FORI：=1TO5DO??BEGIN???X：=(X1+X2)2；???X1：=X2；???X2：=X；??END；??WRITE（‘X=’，X）；???程序运行结束，变量X的值为：??????????????????????2、CONSTN=23VARI，J，TEMP，V：INTEGER；A：ARRAY[1..N]OFCHAR；B：ARRAY[0..9]OFINTEGER；BEGIN?FORI：=1TONDOREAD（A[I]）；?FORI：=0TO9DOB[I]：=0；?FORI：=1TONDO??BEGIN??VAL（A[I]，V，J）；??B[V]：=B[V]+1；??END；?FORI：=1TO9DO?FORJ：=0TO9-IDO?IFB[J]>B[J+1]THEN???BEGIN????TEMP：=B[J]；???????B[J]：=B[J+1]；???????B[J+1]：=TEMP；???END；???J：=0；???WHILEB[J]=0DOJ：=J+1；???FORI：=JTO9TOWRITE（B[I]：3）；??END.???程序输入：22334455664567655555445???程序运行结果：??????????????????????3、VAR????A:ARRAY[1..20]OFINTEGER;????I,J:integer;???BEGIN?????FORI:=1TO20DO??????BEGIN???????A[I]:=0;???????FORJ:=1TO1DO?????????A[I]:=A[I]+2J-1;?????END;?????FORI:=1TO20DO?????Begin???????WRITE(A[i]:5);???????IFImod=5=0?THENwriteln;?????END;??END.程序运行结果：???????????????????????4、PROGRAMNOI_004;?VAR?I,J,J1,J2,P,Q?:INTEGER;????P1???????????:BOOLEAN;????B,C??????????:ARRAY[1..100]OFINTEGER;BEGIN?READLN(Q,P);?J:=1;?P1:=TRUE;?B[J]:=Q;?J1:=0;?WHILE(Q>0)ANDP1DO???BEGIN????J1:=J1+1;C[J1]:=Q10DIVP;?Q:=Q10-C[J1]P;????IFQ>0THENBEGIN?????????????J2:=1;?????????????WHILE(B[J2]<>Q)AND(J2<=J)DOJ2:=J2+1;?????????????IFB[J2]=QTHEN?BEGIN?????????????????????????P1:=FALSE;?????????????????????????WRITE(’0.’);?????????????????????????FORI:=1TOJ2-1DOWRITE(C[I]:1);?????????????????????????WRITE(’{’);?????????????????????????FORI:=J2TOJ1DOWRITE(C[I]:1);?????????????????????????WRITELN(’}’)???????????????????????END????????????????????ELSEBEGINJ:=J+1;B[J]:=Q?END???????????END??END;?IFQ=0THEN?BEGIN???????????WRITE(’0.’);???????????FORI:=1TOJ1DOWRITE(C[I]:1);?????WRITELN?????????END;?READLNEND.程序运行结果：?输入?(1)?18??输出：??????????????????(2)?27??输出：????????????????????????????????????????????????三、程序填空(每空1.5分，共30分)请阅读下列各题的题意及程序，并将程序的空缺部分填空完善，填空的内容写在答题卷相应位置上，答在试卷上不得分。1、求出1至N（100），今将K个小球装入到盒子中去，装入规则如下：??（1）第一个盒子不能为空。??（2）装入必须严格按递增的顺序进行。???例如，当K=8，N=6装入方法有：1，2，5或1，3，4??（3）在满足上面的两个条件下，要求有球的盒子尽可能多。??（4）装完之后，相邻盒子中球个数差的绝对值之和为最小（未装的盒子不计）。??如上例中：???装入法1，2，5?则差的绝对值之和为：2-1+5-2=4???装入法1，3，4?则差的绝对值之和为：3-1+4-3=3[程序要求]：给出K（K表示小球个数）之后，求出满足上述四个条件的装入方法。[算法描述]：设计一个数组A：ARRAY[1..N]OFINTEGER，用数组元素代表盒子然后依次装入小球。[程序]：PROGRAMEXP3（INPUT，OUTPUT）；????CONSTN=20；????VARI，J，K，L：INTEGER；???????A????：ARRAY[1..N]OFINTEGER；?????BEGIN???????READLN（k）；?????????⑥???????????J：=1；???????WHILE?⑦??DO?????????BEGIN??????????A（J）：=J；?⑧??：J：=J+1????????END；?????????L：=j-1;???????WHILE?k>0DO?????????BEGIN?????????????⑨??：K：=K-1：L：=L-1?????????END；?????????FORI：=1TO??⑩??DO??????????WRITE（A[I]：4）?????END.?
宁波21届中小学生计算机程序设计竞赛-小学组初赛试题答案
选择题
CBAACCCADA
DDDCDDDDDD
阅读程序
1．1224
2．122459
3．1491625
36496481100
4．0．125
0．{285714}
三、程序填空
1．A[i]:=i
2.A[i]mod2=0
3.A[i]mod5=0
4.s:=0
5.a[i]<>0
6.fillchar(a,sizeof(a),0)
7.j<=k
8.k:=k-j
9.a[l]:=a[l]+1
10.j-1
宁波市第22届中小学生计算机程序设计竞赛
预赛试题（小学组）
（考试时间120分钟，满分100分）
●●所有提交的答案都以写在答卷纸上的为准，写在试卷上的一律无效●●
学校姓名
一、选择题：请选出各题正确答案的代码（A/B/C/D）（每题2分，共40分）
1、在微型计算机的汉字系统中，一个汉字内码所占的字节数是（）。
（A）1（B）2（C）3（D）4
2、软盘加上写保护后，这时对它可进行的操作是（）。
（A）只能读盘，不能写盘（B）既可读盘，又可写盘
（C）只能写盘，不能读盘（D）不能读盘，也不能写盘
3、下列存储设备中，断电后其中的信息会消失的是（）。
（A）硬盘（B）ROM（C）RAM（D）U盘
4、pascal语言中运算（-13）MOD（-2）的结果是（）。
（A）1（B）-1（C）0（D）-2
5、数组A有10个下标变量，各个下标变量的赋值情形如下所示，则表达式A[A[A[5]]]的值是（）。
A[1] A[2] A[3] A[4] A[5] A[6] A[7] A[8] A[9] A[10] 4 5 1 7 10 2 9 8 3 6 （A）10（B）5（C）6（D）2
6、1GB=（）KB。
（A）1000（B）1024（C）1024×1024（D）1000×1000
7、下面有关计算机病毒的说法，错误的是（）。
（A）为防止病毒感染计算机，使用软盘时，将软盘写保护
（B）计算机的病毒不仅能损坏文件，还可能造成电脑主板等硬件的损坏
（C）上网的电脑有可能会感染病毒
（D）计算机病毒也是程序
8、下列存储器中，存取速度最快的是（）。
（A）软盘（B）内存（C）光盘（D）硬盘
9、在Windows中，能通过输入“?a.?”命令查找到的文件是（）。
（A）pascal.c（B）ppa.1（C）pa1wer.cc（D）dhdtfgpa1.cc
10、下列各种说法中，正确的是（）。
（A）所有的十进制小数都能准确地转换为有限位二进制小数
（B）汉字的计算机机内码就是区位码
（C）存储器具有记忆能力，其中的信息任何时候都不会丢失
（D）计算机中所有信息都采用二进制编码
11、算式（4095）10-（7FF）16+（3000）8的结果不正确的是（）。
（A）（3584）10（B）（111000000000）2（C）（17000）8（D）（E00）16
12、下列函数值是整型的是（）。
（A）chr（23）（B）ord（false）（C）succ（false）（D）odd（98）
13、把整数5转换为字符’5’的表达式是（）。
Ord（5+chr（‘0’））（B）ord（5+chr（0））
（C）chr（5+ord（‘0’））（D）chr（5+ord（0））
14、以下标准数据类型中，不能作为for循环控制变量的是（）。
（A）integer型； （B）real型； （C）boolean型； （D）char型
15、在E-MAIL系统中，用于接收邮件的服务器称为（）服务器。
（A）POP3（B）SMTP（C）DNS（D）FTP
16、衡量网络上数据传输速率的单位是bps，其含义是（）。
（A）数据每秒传送多少二进制位； （B）数据每秒传送多少字节；
（C）数据每秒传送多少公里； （D）数据每秒传送多少千公里。
17、下列各项中不属于系统软件的是（）。
（A）Windows（B）Word（C）FreePascal（D）DOS
18、下列计算机设备中，不是输出设备的是（）。
（A）显示器（B）音箱（C）打印机（D）扫描仪
19、有一个容量大小为4的栈，元素A、B、C、D按照A、B、C、D的次序依次入栈，且每个元素在出栈后不得再重新入栈，如果入栈和出栈的操作序列为：入栈-入栈-出栈-入栈-出栈-出栈-入栈-出栈，问元素A将是第几个出栈的？（）
（A）1（B）2（C）3（D）4
20、在线性表的两种存储表示中，下列描述正确的是（）。
（A）数组利于插入，不利于查找（B）链表利于查找，不利于插入
（C）数组利于查找，不利于插入（D）数组与链表中的插入与查找效率差不多
二、阅读pascal程序并写出运行结果（每题6分，共18分）
第1题：请写出程序运行后变量sum的值（6分）
programxx07_1;
constmaxn=1000000;
varn,k,sum:longint;
f:array[1..maxn]of0..1;
begin
readln(n);
fork:=1tondof[k]:=1;
fork:=1tondiv2dof[k2]:=0;
fork:=1tondiv3dof[k3]:=0;
sum:=0;
fork:=1tondosum:=sum+f[k];
writeln(''sum='',sum);
end.
输入：1000
输出：sum=_______
第2题：请写出程序运行后变量ok的值（每空3分）
programxx07_2;
vars:string;
k,n:integer;ok:boolean;
begin
readln(s);n:=length(s);
k:=1;ok:=true;
whileokand(k<=ndiv2)do
ifs[k]<>s[n+1-k]thenok:=false
elsek:=k+1;
writeln(ok);
end.
①输入：123，输出为：_______
②输入：121，输出为：_______
第3题：请写出程序运行后变量sum的值（6分）
programxx07_3;
constmaxn=1000;
varpos,value:array[1..maxn]oflongint;
n,i,j,x,sum:longint;
change:boolean;
begin
read(n);
fori:=1tondoread(pos[i],value[i]);
change:=true;i:=1;
whilechangeand(i<=n-1)dobegin
change:=false;
forj:=1ton-ido
ifvalue[j]>value[j+1]thenbegin
change:=true;
x:=value[j];value[j]:=value[j+1];value[j+1]:=x;
end;
i:=i+1;
end;
sum:=0;
fori:=1tondosum:=sum+pos[i]value[i];
writeln(''sum='',sum);
end.
输入：
10
110
21
32
49
53
64
78
85
96
107
输出为：sum=_______
三、简答题（第1题6分，第2题8分，共14分）
第1题：河的二岸（A岸、B岸）各有15个码头，它们距上游某城市的距离如下表所示，且A岸的一个码头只与B岸的一个码头（即表中上下对应的二个）有航线，在保证不出现航线交叉的情况下，问：
最多能同时开通几条航线？（3分）
能达到（1）中最多航线条数的不同通航方案共有几种？（3分）
A岸 2 10 15 9 13 4 1 7 11 3 6 5 8 12 14 B岸 4 6 13 9 11 10 3 14 7 1 2 5 8 15 12
第2题：有一堆火柴共若干根，现由甲乙两人轮流从中拿取。规定：除最先轮到取火柴者，其第一次可以拿走任意数目的火柴（但不能拿完，也不能不拿）外，接下来轮到者，每次至少要拿走一根，但至多只可拿走上次对方所取火柴数目的两倍，并约定：最先将火柴取光者为胜者。问：
若原先这堆火柴的根数不少于2根，但最多不多于9根，问：共有哪些情况能确保最先轮到取火柴者必胜？（写出相应的原先这堆火柴的根数）（4分）
若原先这堆火柴的根数不少于10根，但最多不多于23根，问：有哪些情况使最先轮到取火柴者必败？（写出相应的原先这堆火柴的根数）（4分）
四、完善程序（第一大题12分，第二大题16分，共28分）
第1题：完全数（每空3分，共12分）
如果一个正整数的所有小于它本身的因子之和等于该正整数，则该正整数称为完全数。比如6=1+2+3，于是6称为完全数；28=1+2+4+7+14，28也是完全数。
以下程序输入一个数n，输出1至n中的完全数的个数。请完善该程序。
programxx07_5;
varn,i,count:longint;
functionWanQuanShu(k:longint):longint;
vari,sum:longint;
begin
①_____________;
fori:=1tokdiv2do
if②_____________then
sum:=sum+i;
ifsum=kthen
WanQuanShu:=③________
else
WanQuanShu:=④________;
end;
begin
readln(n);
count:=0;
fori:=1tondo
count:=count+wanquanshu(i);
writeln(count);
end.
第2题：石子划分（每空4分，共16分）
给出n堆石子，以及每堆石子数。请将它们分为两堆，使得这两堆的总石子数差最小。输入n，以及每堆石子数，输出分为两堆后的最小差值。比如，n=4，四堆石子分别有13，6，8，14颗，则可以分为13+8和14+6的两堆，它们的最小差为1。
以下程序：（1）求得所有石子数total，以及它的一半half；
（2）在所有石子堆中作适当选择，对每种选择方案，求不超过half的已选中堆中的石子总数的最大值max。所求即为(total-max)-max。
（3）以a[j]表示第j堆石子数；以b[j]表示第j堆石子是否被选中，如果b[j]=1，表示第j堆被选中，如果b[j]=0表示第j堆没有被选中。
（4）各种方案的表达及次序如下：以00…00（均不选中），00..01（只选中第n堆石子），00..10（只选中第n-1堆石子），00…11（选中第n-1堆和第n堆石子），00…100（选中第n-2堆石子），00…101（选中第n-2堆和第n堆石子），11…11（选中所有n堆石子）。
请完善该程序。
programxx07_6;
constmaxn=20;
varn,i,j:longint;
total,half,sum,max:longint;
a:array[1..maxn]oflongint;
b:array[0..maxn]of0..1;
begin
readln(n);
total:=0;
fori:=1tondobegin
read(a[i]);
total:=total+a[i];
end;
half:=totaldiv2;
max:=0;
fori:=1tondob[i]:=0;
i:=n;
whilei>0dobegin
sum:=0;
forj:=1tondo
sum:=⑤________________;
if⑥______________________then
max:=sum;
i:=n;
while(i>0)and(b[i]=1)do
i:=⑦____________;
ifi>0thenbegin
b[i]:=⑧_________;
forj:=i+1tondob[j]:=0;
end;
end;
writeln(total-max-max);
end.
宁波市第22届中小学生计算机程序设计竞赛
预赛答卷（小学组）
（考试时间120分钟，满分100分）
●●所有提交的答案都以写在答卷纸上的为准，写在试卷上的一律无效●●
学校姓名得分
一、选择题：请选出各题正确答案的代码（A/B/C/D）（每题2分，共40分）
题号 1 2 3 4 5 6 7 8 9 10 答案 题号 11 12 13 14 15 16 17 18 19 20 答案
二、阅读pascal程序并写出运行结果（每题6分，共18分）
第1题：请写出程序运行后变量sum的值（6分）。sum的值为：_______________
第2题：请写出程序运行后变量ok的值（每空3分，共6分）
①输入：123，ok的值为：_____________②输入：121，ok的值为：_____________
第3题：请写出程序运行后变量sum的值（6分）。sum的值为：____________
三、简答题（第1题6分，第2题8分，共14分）
第1题（每小题3分，共6分）：
（1）（2）
第2题（每小题4分，共8分）：
（1）（2）
四、完善程序（第1题12分，第2题16分，共28分）
第1题：（每空3分，共12分）
①______________________②_______________________
③______________________④_______________________
第2题：（每空4分，共16分）
⑤______________________⑥_______________________
⑦______________________⑧_______________________
宁波市第22届中小学生计算机程序设计初赛试题答题卷
(小学组)
学校姓名准考证号
一、选择题(每小题2分，共40分)
1 2 3 4 5 6 7 8 9 10 11 12 13 B A C B D C A B A D C B C 14 15 16 17 18 19 20 ? B A A B D C B 二、阅读程序，并写出程序的正确运行结果(每空6分，共30分)
1、程序运行结果：sum=333
2、程序运行结果：输入123输出：FALSE
输入121输出：TRUE
3、程序运行结果：sum=385
?
三、
1、8条航线
2种方案
?
2、（1）4、6、7、9根
（2）除12，18根外
?
四、程序填空(每空5分，共30分)
1、①sum:=0②kmodi=0
③1④0
2、⑤sum+a[j]b[j]
⑥(sum<=half)and(sum>max)
⑦i-1⑧1
2008年宁波市信息学竞赛初赛试题
（小学组Pascal语言二小时完成）
●全部试题答案均要求写在答卷纸上，写在试卷纸上一律无效●●
单项选择题（共15题，每题2分，共计30分。每题有且仅有一个正确答案。）
1．在计算机中，程序和数据统一存储并在程序控制下自动工作；提出这种理论体系的科学家是
（A）申农 （B）摩尔 （C）盖茨 （D）冯·诺依曼 2．十进制数17转化为二进制数是
A）10001 B）10010 C）10101 D）11001 3．下列属于文字处理软件的是
A）Word （B）ACDSee （C）GoldWave （D）Flash 4．在Windows中，把鼠标指针指向一个右边有“…”符号的菜单项，将弹出
（A）工具栏 （B）对话框 （C）状态栏 （D）子菜单 5．InternetExplorer(IE)浏览器中的“收藏”菜单的主要功能是管理
（A）图片 （B）邮件 （C）网址 （D）文档 6．E-mail邮件本质上是一个A）文件 （B）电报 （C）电话 （D）传真 7．由于网络的普及而兴起的一种新的数字音频格式是
（A）MD （B）MP3 （C）VCD （D）DVD 8．计算机要处理光盘中的信息时，必须将待处理的信息调入
A）U盘 B）硬盘 C）内存 D）显示器
（A）网络用户 （B）传输协议 （C）联网设备 （D）联网范围 10．一般家庭是通过非对称数字用户环路技术上网的，该技术的英文缩写是
（A）DNS （B）WWW （C）ISP (D)ADSL 11．下列存储容量之间换算正确的是
（A）1KB=1000B （B）1MB=1024KB （C）1MB=1024B （D）1GB=1024KB 12．利用随机函数random(3)可以产生的整数A）1、2 B）0、1、2 C）1、2、3 D）0、1、2、3 ．语句c:=a=b能正确执行，其中变量a、b是整型数，则变量c的类型是
A）整数 （B）实型 （C）布尔型 （D）字符型 14．设A=B=True，C=D=False，下列逻辑运算表达式值为False的是
（A）AORC （B）AANDB （C）NOT(AANDC) （D）NOT(AANDB)
15．将数组{1,2,4,3,5,6,7,8}中的元素用冒泡排序的方法按从大到小的顺序排列，需要比较的次数是
（A）7 （B）27 （C）28 （D）64 1．不同的两条直线最多只有1个交点，不同的三条直线最多只有3个交点，那么不同的五条直线最多共有个交点。
2．某人拥有面值为1、2、3、4、5、6的六枚银币，他发现只要用面值为1、2、3的3枚银币就可以拼成1～6的所有币值；如果他拥有1、2、……、100共一百枚银币，那么他只要用最少的枚银币就可以拼成1～100的所有币值。
三、阅读程序写结果（共4题，每题8分，共计32分。）
1、programxx301;
var
s:string;
i,k,j:integer;
begin
i:=1;
s:=''123!&jhfokillltlllabethe'';
k:=length(s);
repeat
k:=k-i;
inc(i);
write(s[k]);
untilk-i<0;
end.
输出：______________________
2、programxx302;
const
a:array[1..6]ofinteger=(3,2,4,6,5,1);
var
b:array[1..6]ofinteger;
i,j,k:integer;
begin
b:=a;
fori:=1to3do
forj:=i+1to6do
ifb[i]
k:=b[i];b[i]:=b[j];b[j]:=kend;
fori:=1to6do
write(b[i]:3);
end.
输出：_______________________________
3、programxx303;
var
i,j,s,n,k:integer;
begin
readln(n);
s:=0;
fori:=1tondobegin
k:=-1;
forj:=1toido
k:=-k;
s:=s+ki;
end;
writeln(s);
end.
输入：100输出：_____________________________________________
4、Programxx304;
var
n:integer;
functionsum(k:integer):integer;
var
i,s,t:integer;
begin
s:=0;t:=1;
fori:=1tokdobegin
t:=ti;
s:=s+t;
end;
sum:=s
end;
begin
n:=5;
writeln(sum(n))
end.
输出：__________________________
四、完善程序（前4空，每空3分，后4空，每空4分，共28分）。
1、（插入排序）下面的程序的功能是输入n及n个整数，用插入排序的方法，将n个整数按从小到大的顺序输出，要求每行输出10个整数（最后一行可以不足10个）。
请将程序补充完整。
Programxx401;
var
a:array[1..1000]ofinteger;
n,i,x,k:integer;
begin
readln(n);
read();
fori:=2tondobegin
k:=i;
read(x);
while(k>1)and()dobegin
a[k]:=;
dec(k);
end;
a[k]:=x;
end;
fori:=1tondobegin
write(a[i]:4);
ifthenwriteln
end;
writeln
end.
2、（最大乘积）一个正整数一般可以分为几个互不相同的自然数的和，如3=1+2，4=1+3，5＝1+4=2+3，6=1+5＝2+4，…。
下面给出的程序是将指定的不超过200的正整数n分解成若干个互不相同的自然数的和，且使这些自然数的乘积最大。请将程序补充完整。
Programxx402;
var
n,k,m,i,j:integer;
a:array[0..30]ofinteger;
s:qword;
begin
readln(n);
k:=2;
fillchar(a,sizeof(a),0);
whilen>=kdobegin
a[k]:=k;;
inc(k);
end;
m:=k-1;
fori:=mdownto2do
ifn>0thenbegin
n:=n-1;
;
end
elsebreak;
fori:=mdownto2do
ifn>0thenbegin
a[i]:=a[i]+1;
;
end
elsebreak;
s:=1;
fori:=1to30do
ifa[i]>0then;
writeln(s);
end.
2008年宁波市信息学竞赛初赛试题
（小学组Pascal语言）参考答案与评分标准一、单项选择题：（每题分）二、问题求解：（每题5分）1．2．三、阅读程序写结果1.hello!
2.?654231
3.?-50
4.?153
四、完善程序(前4空（--④），每空分，后空（--⑧），每空分)（说明：以下各程序填空可能还有一些等价的写法，上机验证）1．??a[1]
②?a[k-1]>x或x0……
③?a[k-1]
④?imod10=0
2.?
⑤n:=n-k或dec(n,k)
⑥a[i]:=a[i]+1或inc(a[i])
⑦dec(n)或n:=n-1
⑧s:=sa[i]或s:=a[i]s
2009年宁波市第2届中小学生计算机程序设计竞赛
组初赛试题
（说明：答案请写在答题卷上。考试时间120分钟，满分100分）
一、选择题（每题有一个正确答案，选对得1.5分，选错、不选或多选均不得分）
1、
2、A.NB.2NC.2N–1D.2N+1E.2N–1
3、A.4257631B.4275631C.4275361D.4723561E.4526371
4、A.4B.3C.5D.2E.6
5、布尔型(boolean)和字符型(char)变量所占用的存储空间大小的关系是
（A）布尔型大（B）字符型大（C）一样大（D）因操作系统而异
、表示的数是：
（A）（B）1111111（C）（D）
7、有一个10行10列的对称矩阵，采用压缩存储方式来存储该矩阵的上三角元素（行优先次序），第1行第1列的存储地址为s，每个元素占用2个存储空间，则第8行第8列元素的首地址为：（A）s+100（B）s+98（C）s+72（D）s+70
、已知一棵二叉树的叶子结点数为100，则有二个子女的结点数为：
（A）101（B）100（C）99（D）不能确定
、已知一棵二叉树的前序遍历为JFDECBHAIG，中序遍历结果为DFEJAHBICG，则这棵二叉树的深度为：（A）6（B）5（C）4（D）3
10、
11、{1,2,4,3,5,6,7,8}中的元素用插入排序的方法按从大到小的顺序排列，需要比较的次数是：
（A）（B）（C）（D）12、算式(2009)16-(2008)10+(2007)8的结果是：
（A）(1670)8（B）(724)10（C）(1C)16（D）(1110000111000)2
13、计算机内部使用的数是（A）二进制数????（B）八进制数（C）十进制数????（）十六进制数
14、
15、当原始待排序数据为从小到大排列时，运行时间比原始数据为乱序时快的算法是：
（A）选择排序（B）排序（C）插入排序（D）快速排序
16、关于算法的下列叙述正确的是：
（A）算法的每一步必须没有歧义，不能有半点含糊
（B）算法输入
（C）同一问题可能存在多种不同的算法
（D）同一算法可以用多种不同的形式来描述
、（A）（B）（C）（D）（A）（B）（C）（D）（A）（B）（C）（D）．问题求解（每小题5分，共10分）
1、已知a,b,c,d,e,f,g七个人中，a会讲英语；b会讲英语和汉语；c会讲英语、意大利语和俄语；d会讲汉语和日语；e会讲意大利语和德语；f会讲俄语、日语和法语；g会讲德语和法语。能否将他们的座位安排在圆桌旁，使得每个人都能与他身边的人交谈？如果可以，请以“ab”开头写出你的安排方案：_____________。
、阅读程序写结果（每题8分，共32分）
programnbxx09_1;
vara,b,s:longint;
begin
readln(a);
s:=a;
b:=0;
whilea<>0dobegin
b:=b10+amod10;
a:=adiv10;
end;
s:=s+b;
writeln(s);
end.
输入：123456789输出：
2、programnb09_2;
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:=(c100-13)divadiv(u[bmod3]5);
z:=(a+b+c-x-y)2;
if((x+y)mod2=0)thenz:=(a+b+c+x+y)div2;
writeln(x+y-z);
end.
输入：2574输出：
3、programnbXX09_3;
vara,work:array[1..100]ofinteger;
i,j,x,d,max:integer;
begin
readln(max);
fori:=1tomaxdobegin
read(a[i]);work[i]:=a[i];
end;
d:=maxdiv2;
whiled>=1dobegin
fori:=d+1tomaxdobegin
x:=work[i];
j:=i-d;
while(j>0)and(x
work[j+d]:=work[j];
dec(j,d);
end;
work[j+d]:=x;
end;
d:=ddiv2;
end;
fori:=maxdownto1do
ifa[i]=work[i]thenwrite(''1'')
elsewrite(''0'');
writeln;
end.
输入：8
718814932669014499
4、programnb09_4;
varp:array[1..10000]oflongint;
n,i,x:longint;
functionfind(x:longint):longint;
begin
ifp[x]=xthenfind:=x
elsebegin
p[x]:=find(p[x]);
find:=p[x];
end;
end;
begin
readln(n,x);
fori:=1tondoread(p[i]);
writeln(find(x));
fori:=1ton-1dowrite(p[i],'''');//两数之间输出一个空格
writeln(p[n]);
end.
输入：5533324
四．程序填空（前5空，每空2分，后6空，每空3分，共28分）
1、以下实现输入n个数，使用类似冒泡排序的方法，将输入的n个数从小到大排序后输出。程序在运行中发现数据已经有序了。请将程序补充完整。
programnbcz09_5;
varn,i,j,tmp:longint;
a:array[1..10000]oflongint;
flag:boolean;
begin
readln(n);
fori:=1tondoread(a[i]);
i:=1;
①__________________;
whileflagand(i<=n-1)dobegin
flag:=false;
forj:=1to②_____________do
ifa[j]>a[j+1]thenbegin//前一个比后一个大
tmp:=a[j];
③___________;
a[j+1]:=tmp;
④______________;
end;
⑤_______________;
end;
fori:=1ton-1dowrite(a[i],'''');
writeln(a[n]);
end.
2、
游戏开始可以规定某些格子已经有给定的数字。如图2所示，在2行2列的方格中，规定1行1列和2行2列的数字均为1，则得到唯一的如图3所示的方案。但如果规定1行1列数字为1，2行2列数字为2，则无法得到任何合法的方案（如图4所示）
下面的程序求9行9列的一个安排方案，程序首先读入若干个已知格子上的数字，找到一个合理的安排方案后输出。如果没有任何合法方案，则输出“NoSolution!”(注意引号不用输出)。
程序填充格子的次序依次为：1行1列、1行2列、…1行9列、2行1列、2行2列、…2行9列、…9行1列、9行2列、…9行9列。
请你将空白处的程序补充完整。
programnbxx09_6;
varh:array[1..9,1..9]ofboolean;//h[i,j]表示数字j是否出现在第i行
v:array[1..9,1..9]ofboolean;//v[i,j]表示数字j是否出现在第i列
change:array[1..9,1..9]ofboolean;//change[i,j]表示第i行第j列是否为规定的数字
a:array[1..9,1..9]ofinteger;//保存方案
i,j,k,n,x:integer;
procedureprint;//输出找到的方案
vari,j:integer;
begin
fori:=1to9dobegin
forj:=1to8dowrite(a[i,j],'''');
writeln(⑥______________);
end;
end;
proceduresearch(i,j:integer);//从i行j列开始填充
vark:integer;
begin
if(⑦__________________)thenbegin
print;
halt;//结束程序
end;
ifchange[i,j]thenbegin
fork:=1to9do
if(noth[i,k])and(notv[j,k])thenbegin
h[i,k]:=true;
v[j,k]:=true;
⑧________________;
ifj<9thensearch(i,j+1)
elsesearch(⑨_________________);
h[i,k]:=false;
v[j,k]:=false;
end
end
elsebegin
ifj<9thensearch(i,j+1)
elsesearch(⑨_________________);
end;
end;
begin
fori:=1to9do
forj:=1to9dobegin
h[i,j]:=false;//第i行没有数字j出现
v[i,j]:=false;//第i列没有数字j出现
a[i,j]:=0;//第i行第j列没有数字填入
change[i,j]:=true;//第i行第j列允许填充(没有给定的输入数字)
end;
readln(n);
fork:=1tondobegin
readln(i,j,x);
a[i,j]:=x;//第i行第j列给定的数字为x
h[i,x]:=true;//第i行出现数字x
v[j,x]:=true;//第j列出现数字x
change[i,j]:=false;//第i行第j列不允许填充(已有给定的输入数字)
end;
search(⑩_______________);
writeln(⑾___________);
end.
2009年宁波市第2届中小学计算机程序设计竞赛初赛答（组Pascal语言时间：120分钟）
单项选择题（每题1.5分，共分）
1 2 3 4 5 6 7 8 9 10 答案 C B C B D 题号 11 12 13 14 15 16 17 18 19 20 答案 C D A D C B D B C B 问题求解（共2题，每题5分，共10分）
①_7_____②15(各2.5分)
阅读程序（共4题，每题8分，共32分）
11111111102、263
3、010000004、3(4分)
33333(4分)
5、
完善程序（前5空，每空2分，后6空每空3分，共28分）
①②n-i(i后面有标点符号扣1分)
③a[j]:=a[j+1]④flag:=true
⑤i:=i+1或inc(i)或ifnotflagtheni:=i+1或ifnotflagtheninc(i)
或ifflag=falsetheni:=i+1或ifflag=falsetheninc(i)
⑥a[i,9](后面有标点符号扣1分)
⑦i=10或i>9或i>=10(后面有标点符号扣1分)
⑧a[i,j]:=k
⑨i+1,1(后面有标点符号扣1分)
⑩1,1(后面有标点符号扣1分)
⑾''NoSolution!''(后面有标点符号、单引号错误、少感叹号等每个错误各扣1分)
宁波市第25届中小学生程序设计竞赛组初赛试题
1、在宁波市中小学生程序设计比赛复赛（上机编程）时，以下不能使用的编程语言是：
（A）TurboPascal（B）FreePascal（C）C（D）C++
、（A）（B）（C）（D）
3、使用高级语言编写的程序称之为：
（A）（B）（C）（D）
4、如果自己的程序进入了死循环，应当按什么键终止？
（A）（B）（C）（D）参加宁波市中小学生程序设计比赛复赛（上机编程）时，（A）（B）
（C）（D）参加宁波市中小学生程序设计比赛复赛（上机编程），（A）（B）（C）（D）
7、在FreePascal语言，以下关于各种数据类型占内存空间大小的描述错误的是：
（A）（B）（C）（D）
8、关键码相同的二个元素，原来在排在前面的还能保证排在前面,这种排序算法我们称它是稳定的。冒泡排序、选择排序、插入排序中,一般意义上是稳定的有几种：
（A）（B）（C）（D）（A）（B）（C）（D）（A）（B）（C）（D）
11、以下属于计算机的基本指令的是：
（A）（B）（C）（D）
12、以下属于汉字输出时使用的编码的是：
（A）（B）（C）（D）
13、以下存储介质中，一般说来存取速度最快的是：
（A）（B）（C）（D）（A）（B）（C）（D）（A）（B）（C）（D）fourofakind,即四张点数相同的牌加一张另外点数的牌）的取法数有1348=624种；取得辅鲁(fullhouse,即三张点数相同另加二张点数相同牌)的取法数有多少种？请注意，二种取法中，只要有一张牌花色不同或点数不同，这二种取法就是不同的。
2、有若干堆硬币，甲乙二人参加游戏，游戏规则如下：
（1）由甲开始，二人轮流取硬币，每次取时只能从某一堆中取若干个硬币，可以把该堆硬币全部取完，最少可以只取一个硬币，但不能不取硬币。
（2）最后取完最后一个硬币的人为胜者。
比如一开始有二堆硬币，第一堆1枚，第二堆2枚，有几种取法：
（1）甲取第一堆1枚，乙取第二堆1枚，甲取第二堆1枚，甲获胜！
（2）甲取第一堆1枚，乙取第二堆2枚，乙获胜！
（3）甲取第二堆1枚，乙取第一堆1枚，甲取第二堆1枚，甲获胜！
（4）甲取第二堆1枚，乙取第二堆1枚，甲取第一堆1枚，甲获胜！
（5）甲取第二堆2枚，乙取第一堆1枚，乙获胜！
显然，当甲先取第二堆1枚时，甲能获胜！当甲采取其它取法时，当乙取对时，甲会失败的。但如果一开始二堆硬币数都为2枚，则甲无论在哪一堆中取多少个，乙可以在另外一堆中取同样多个，乙获胜，甲失败。
现在有三堆硬币，第1堆有2枚硬币，第2堆有4枚硬币，第3堆有5枚硬币。问甲先取，在大家都使用最佳方法的情况下，甲能否获胜？如果甲能获胜，请写出第一次在第几堆取多少枚硬币才能获胜？如果不能获胜，则只要写上“No”。
三．阅读程序，求程序运行输出结果(每题8分，共32分)
第1题：
programxx2010_1;
vari,j,s:longint;prime:boolean;
begin
fori:=2to20dobegin
prime:=true;
forj:=2toi-1do
ifimodj=0thenbegin
prime:=false;
break;
end;
ifprimethens:=s+1;
end;
writeln(s);
end.
第2题：
Programxx2010_2;
vara,b,c,d,n,i,j:longint;find:boolean;
f:array[0..9]oflongint;
begin
f[0]:=2;f[1]:=3;f[2]:=5;f[3]:=7;f[4]:=11;
f[5]:=13;f[6]:=17;f[7]:=19;f[8]:=23;f[9]:=29;
readln(a,b,c,d);
n:=10;
a:=((f[a]f[b]-f[c]f[d])modn+n)modn;
b:=((f[b]f[c]-f[d]f[a])modn+n)modn;
c:=((f[c]f[d]-f[a]f[b])modn+n)modn;
d:=((f[d]f[a]-f[b]f[c])modn+n)modn;
writeln(a,'''',b,'''',c,'''',d);
end.
第3题：
Programxx2010_3;
vara:array[1..30]oflongint;
s,n,i,x,y,z:longint;c:char;
begin
readln(x,y);
readln(z);
n:=0;
whilez>0dobegin
n:=n+1;a[n]:=zmod10;z:=zdiv10;
end;
s:=0;
fori:=ndownto1dos:=sx+a[i];
writeln(s);
n:=0;
whiles>0dobegin
n:=n+1;a[n]:=smody;s:=sdivy;
end;
fori:=ndownto1dowrite(a[i]);
writeln;
end.
第4题：
Programxx2010_4;
varf:array[1..46]oflongint;
a:array[1..100]oflongint;
x,y,z,i,j,n,count:longint;
functionfind(i,h,x:longint):longint;
varm:longint;
begin
ifi<3thenfind:=0
elsebegin
m:=h+f[i-1]-1;
count:=count+1;
ifx=a[m]thenfind:=m
elseifx
elsefind:=find(i-2,m+1,x);
end;
end;
begin
f[1]:=1;f[2]:=1;
fori:=3to46dof[i]:=f[i-1]+f[i-2];
readln(n,x,y);
fori:=1tondoa[i]:=3i-1;
i:=1;
whilef[i]-1
forj:=n+1tof[i]-1doa[j]:=maxlongint;
count:=0;j:=find(i,1,x);
writeln(j,'''',count);
count:=0;j:=find(i,1,y);
writeln(j,'''',count);
end.
四．程序填空(第1题每空2分，第2题每空3分，共28分)
1、人数统计
有二幢高楼，已知：
（1）第一幢高楼的各层上男性人数与第二幢高楼的同一层上的男性人数的差；
（2）第一幢高楼的各层上女性人数与第二幢高楼的同一层上的女性人数的差；
求第一幢高楼的各层上总人数与第二幢高楼的同一层上的总人数的差；
输入：第1行二个整数n1和n2。
第2行至第n1+1行，每行二个整数a1和b1。表示第b1层男性人数的差额为a1。
第n1+2行至第n1+n2+1行，每行二个整数a2和b2。表示第b2层女性人数的差额为a2。
输出：每行二个整数a和b，表示第b层总人数的差额为a。
请注意：
（1）输入时，如果某一层上二幢楼均没有男性（或女性），则不输入该层的差额情况
（2）输出时，如果某一层上二幢楼均没有人，则不输出该层的差额情况
（3）输入和输出时，均按照层数递增的次序。
请将程序补充完整。
Programxx2010_5;
vara1,a2,b1,b2,a,b:array[1..100]oflongint;
n1,n2,n,i,j:longint;
begin
readln(n1,n2);
fori:=1ton1doread(a1[i],b1[i]);
fori:=1ton2doread(a2[i],b2[i]);
i:=1;j:=1;①;
while②dobegin
ifb1[i]=b2[j]thenbegin
a[n]:=③;b[n]:=④;
i:=i+1;j:=j+1;n:=n+1;
endelseifb1[i]
a[n]:=a1[i];b[n]:=b1[i];
i:=i+1;n:=n+1;
endelsebegin
a[n]:=a2[j];b[n]:=b2[j];
j:=j+1;
n:=n+1;
end;
end;
whilei<=n1dobegin
a[n]:=a1[i];b[n]:=b1[i];
i:=i+1;n:=n+1;
end;
whilej<=n2dobegin
a[n]:=a2[j];b[n]:=b2[j];
j:=j+1;n:=n+1;
end;
⑤;
fori:=1tondo
writeln(a[i],'''',b[i]);
end.
2、表达式求值
堆栈是一种后进先出的数据结构，实际编程时，常常以数组来模拟堆栈。
以下程序计算包含“+”、“-”、“”、“（”、“）”和正整数的一个表达式的值。以数组num和数组code作为二个堆栈。其中堆栈num用来存储表达式中的数值以及计算的中间结果，堆栈code用来存储表达式中的运算符号。最终结果存储在num[1]中，程序输出最终求得的一个整数值num[1]。
程序逐字符扫描表达式：
1、如果是运算数，则直接进运算数栈num。
2、如果是运算符：
2.1如果当前运算符级别低于或相同于位于运算符栈顶的前一个运算符的级别，则：
2.1.1在运算数栈中出栈两次，得到a,b;
2.1.2运算符栈出栈，得运算符p;
2.1.3将a和b在运算p下的计算结果入运算数栈;
2.1.4当前运算符继续与位于运算符栈顶的前一个运算符比较；
2.2如果当前运算符级别高于位于运算符栈顶的前一个运算符级别，则当前运算符进栈：
3、左括号最高级。右括号最低级
3.1因此，遇左括号时，左括号入栈；但左括号在栈内时，级别低于任何其它符号！
3.2遇右括号时，一直作运算，直至遇上左括号，则简单地作左括号出栈即可,且此时右括号不进栈；
为方便起见，程序会在输入的表达式前后加上一对括号。另外，输入数据保证是正确的。请将程序补充完整。
Programxx2010_6;
vars:ansistring;
n,i,tc,tn:longint;
x,y:extended;
num:array[1..1001]ofextended;
code:array[1..1001]ofchar;
functioncal(x,y:extended;c:char):extended;//计算x和y在运算c下的值
begin
ifc=''-''thencal:=x-y
elseifc=''+''thencal:=x+y
elsecal:=xy;
end;
functionprio(x,y:char):boolean;//前一个运算符x比后一个运算符y级别高吗？
begin
ifx=''(''thenprio:=false
elseifx=''''thenprio:=true
elseif(x=''+'')and((y=''+'')or(y=''-''))thenprio:=true
elseif(x=''-'')and((y=''+'')or(y=''-''))thenprio:=true
elseprio:=false;
end;
begin
readln(s);⑥;
n:=length(s);
x:=0;tc:=0;tn:=0;
fori:=1tondobegin//逐字符扫描输入的表达式
if(s[i]>=''0'')and(s[i]<=''9'')then//第i个字符是数字
x:=x10+ord(s[i])-ord(''0'')//得到连续数字表示的整数值，存储在变量x中
elsebegin
ifx<>0thenbegin//前面已经得到正整数值，当前数字x进入数字栈
tn:=tn+1;num[tn]:=x;x:=0;end;
ifs[i]=''(''thenbegin//第i个字符为左括号,入符号栈
tc:=tc+1;code[tc]:=s[i];end
elseifs[i]='')''thenbegin//第i个字符为右括号
while⑦dobegin
tn:=tn-1;
num[tn]:=⑧;
tc:=tc-1;
end;
⑨;
endelsebegin//第i个字符为+,-,
whileprio(code[tc],s[i])dobegin
tn:=tn-1;
num[tn]:=⑧;
tc:=tc-1;
end;
tc:=tc+1;
⑩;
end;
end;
end;
writeln(⑾);
end.
宁波市第25届中小学计算机程序设计竞赛组初赛答
一、单项选择题（每题1.5分，共计30分）
1 2 3 4 5 6 7 8 9 10 D D C B A或C D 11 12 13 14 15 D C B C A
二、问题求解（共2题，每题5分，共10分）
1、2、
三、阅读程序，求程序运行输出结果（共4题，每题8分，共32分）
1、_________2、3、________________4、________________
1000101___________04________________
四、程序填空（前5空，每空2分，后6空每空3分，共28分）
①_______________
②(i<=n1)and(j<=n2)必须有二个括号，and前后可以没有空格，前后可以再加一个括号
③a1[i]+a2[j]或a2[j]+a1[i]
④b1[i]或b2[j]_________
⑤n:=n-1或dec(n)或dec(n,1)_____
⑥s:=''(''+s+'')''____⑦code[tc]<>''(''前后可以有括号
⑧cal(num[tn],num[tn+1],code[tc])⑨tc:=tc-1或dec(tc)或dec(tc,1)
⑩code[tc]:=s[i]________
⑾num[1]:0:0___________
宁波市第26届中小学生程序设计竞赛小学组初赛试题
一、选择题（每题2分，共30分。每小题只有唯一一个正确答案）
1.二进制数（1011101）2的值是（）
（A）94（B）93（C）62（D）61
2.每个不同的二进制数可以表示一种颜色，赤、橙、红、绿、青、蓝、紫这7种颜色，最少需要几位二进制数来表示？（）
3.以下运算结果为False的是（）
（A）not(5>5)(B)(5>=4)and(7<7)(C)not(false)(D)(5<4)or(5>=5)
4.Pascal源程序的扩展民是（）
（A）p(B)psc(C)pas(D)pascal
5.计算机的中央处理器的组成部件是（）
(A)控制器和存储器（B）存储器和运算器
（C）控制器和运算器（D）控制器、存储器和运算器
6.宁波市中小学程序设计竞赛自从首届举办以来，除了其中有一届因举办时间从下半年调整到次年的上半年而没有举行外，每年举办一次。首届宁波市中小学程序设计竞赛是哪一年举办的？
（A）1984年(B)1985年（C）1986年（D）1987年
7.已知一维数组定义a:array[1..100]oflongint;每个元素占4个字节地址。已知a[1]的开始地址为第10000个字节处，问a[11]的开始地址是第几个字节：（）
8.在宁波市中小学生程序设计竞赛上机复赛中，阅卷老师会批改以下的哪些（个）文件()
(A)先批改选手的源程序文件，如果找不到会批改可执行文件
（B）先批改选手的可执行文件，如果找不到会批改源程序文件
（C）只批改选手编译生成的可执行文件
（D）只批改选手的源程序文件
9.以下哪些（个）行为是不符合青少年网络文明公约的：（）
(A)相信绝大多数的网友是真诚的，随意与网友约会
（B）沉溺于网络游戏，影响学习
（C）上电脑课时下载大量迷幻类、穿越类的小说，以便晚上睡觉躲被窝看
（D）以上都是
10.在FreePascal编程时，你写了一下的程序（）
varn:longint;
begin
assign(input,’a,txt’);reset(input);//输入文件重定向到a.txt文件
read(n);
close(input);//关闭输入文件
end.
运行该程序时，返回如右图所示的错误信息，这是由于
当前目录下找不到输入文件“a.txt”
源程序存在2号语法错误
输入的值与变量n不匹配
Pascal编译器没有正确安装
11.有以下的程序：
vars:string;
begin
readln(s);
writeln(s[1]);
end.
该程序运行时，输入如下的”ABC”后按回车键，输出为()
(A)1(B)字符‘A’（C）字符‘A’的ASCII码65（D）字符串”ABC”
12.宁波市程序设计竞赛使用的FreePascal2.0.4中integer型数据的是表示范围是()
（A）-32768~32767（B）约正负21亿之间（C）0~65536（D）不一定
13.在Pascal程序中，以下变量名称正确的是()
（A）begin(B)2011xx(C)hello(D)array
14.以下程序段结构，总体上看是属于哪个基本结构（）
fori:=1todo
ifimod2=0thens:=s+1;
(A)顺序结构（B）循环结构（C）选择结构(D)树型结构
15.进行在线游戏时，①用户登录；②进入在线游戏网；③选择游戏伙伴、开始游戏；④选择游戏室。正确的次序是（）
（A）①②④③(B)②①④③(C)①②③④(D)②①③④
二．问题求解（每题5分，共10分）
0 0 1 0 0 0 1 0 1 0 0 1 1 0 1 1 1.有三个正整数x,y和z，它们相加之和等于21，且x≤y≤z。显然x=1,y=1,z=19是一组解，x=5,y=6,z=10是另一组解。请问共有几组解呢？
2.在四行四列的表格中放有16枚硬币（每格1枚硬币），以1表示正面朝上，0表示反面朝上。一次翻硬币是指，要么把某一行整行反转，要么把某一列整列反转。某一行或某一列反转后，这一行上原来正面朝上的全变反面朝上，原来反面朝上的全变为正面朝上了。
原来的硬币状态如右图所示（图中有7枚硬币正面朝上，9枚硬币反面朝上），经若干次整行、整列的翻转后，右图中最多可以使多少枚硬币正面朝上？使最多枚硬币正面朝上时最少需要翻几次？
三．阅读程序，求程序运行输出结果(每题8分，共32分)
第1题：
programxx2011_1;
varn,i,c:longint;ave,s:extended;
f:array[1..10000]oflongint;
begin
read(n);ave:=0;
fori:=1tondobegin
read(f[i]);
ave:=ave+f[i];
end;
ave:=ave/n;c:=0;
fori:=1tondo
iff[i]
writeln(ave:0:2,’‘,c);
end.
第2题：
programxx2011_2;
varn,i,x,p,s:longint;
begin
read(n,x);
s:=0;p:=1;
fori:=1tondobegin
p:=px;
s:=s+p;
end;
writeln(s);
end.
第3题：
programxx2011_3;
constmaxn=100000;
var
f:array[1..maxn]oflongint;
stack:array[1..maxn,1..2]oflongint;
n,i,j,h,t,last,x,s:longint;
begin
read(n);
fori:=1tondoread(f[i]);
stack[1,1]:=1;
stack[1,2]:=n;
last:=2;
whilelast>1dobegin
last:=last-1;
h:=stack[last,1];
t:=stack[last,2];
i:=h;
j:=t;
x:=f[h];
whilei
while(i
ifi
f[i]:=f[j];
i:=i+1;
end;
while(ix)doi:=i+1;
ifi
f[j]:=f[i];j:=j-1;
end;
end;
f[i]:=x;
if(h
stack[last,1]:=h;stack[last,2]:=i-1;last:=last+1;
end;
if(i+1
stack[last,1]:=i+1;stack[last,2]:=t;last:=last+1;
end;
end;
s:=f[2]-f[1];
fori:=3tondos:=s+f[i]-f[i-1];
writeln(s);
end.
第4题
programxx2011_4;
var
n,a,b,c,d:longint;
procedurematric(vara,b,c,d:longint;n:longint);
vara1,b1,c1,d1,a2,b2,c2,d2,a3,b3,c3,d3:longint;
begin
ifn=1thenbegina:=0;b:=1;c:=1;d:=1;exit;end;
matric(a1,b1,c1,d1,ndiv2);
matric(a2,b2,c2,d2,ndiv2);
a3:=a1a2+b1c2;
b3:=a1b2+b1d2;
c3:=c1a2+d1c2;
d3:=c1b2+d1d2;
ifnmod2=1thenbegin
a:=b3;b:=a3+b3;c:=d3;d:=c3+d3;
end
elsebegin
a:=a3;b:=b3;c:=c3;d:=d3;
end;
end;
begin
read(n);
ifn<3thenwriteln(1)
elsebegin
matric(a,b,c,d,n-2);
writeln(c+d);
end;
end.
四．程序填空（前5空每空2分，后6空每空3分，共28分）
第1题：幻方
把1至n×n的正整数填在n行n列的表格内，使每一行、每一列和二条多角线上n个数之和都相等。这样的正方形表格叫做幻方。如右图所示是一个3行3列的幻方。
下面的程序生成一个行（列）数为奇数的幻方。如果输入的行列数n是偶数，输出字符串”notoddnumber!”，否则按一下的方法生成幻方：
第一个数1填入第一行最中间的一列；
以后每次填下一个数时，填入的位置为：
如果已填的数的个数为n的倍数，则填入下一行；
否则填入上一行右一列。如果向上越界，则填至最后一行；如果向右越界，填至第一列。生成的数字保存在二维数组a中，程序输出n行，每行n个数据。
【样例输入】
3
【样例输出】
16
57
92
请将程序补充完整。
programxx2011_5;
constmaxn=1001;
varn,i,j,p:longint;
a:array[1..maxn,1..maxn]oflongint;
begin
readln(n);
ifnmod2=0thenbegin
wrtieln(‘notoddnumber!’);
;
end;
i:=1;
;
forp:=1tonndobegin
a[i,j]:=p;
iftheni:=i+1
elsebegin
i:=i-1;j:=j+1;
iftheni:=n;
ifj>nthenj:=1;
end;
end;
fori:=1tondobegin
forj:=1ton-1do
write(a[i,j],’‘);
;
end;
end.
第2题：完美覆盖
以1×2的多米诺骨牌去覆盖n×m的棋盘，当棋盘中的每一格都刚好被一块多米诺骨牌覆盖时，这种覆盖叫多米诺骨牌的完美覆盖。如下图所示，2行3列的棋盘，有3种完美覆盖方案。
以下程序求得n×m棋盘的完美覆盖总方案数。程序从第1行第1列开始，按照1行1列、1行2列、1行3列、…、1行m列、2行1列、2行2列、2行3列、…、2行m列、…n行1列、n行2列、n行3列、…、n行m列的次序，逐格尝试各格子的不同覆盖方案。以f[i,j]=0表示第i行j列格子还没有被覆盖，以f[i,j]=1表示第i行j列格子被横向覆盖，以f[i,j]=2表示第i行j列格子被纵向覆盖，覆盖的总方案数在变量ans中求得。
请将程序补充完整。
programxx2011_6;
constmaxn=100;maxm=100;
var
n,m,i,j:longint;
ans:extended;
f:array[1..maxn,1..maxm]oflongint;
proceduredomino(i,j:longint);
begin
ifi>nthenbegin
;
exit;
end;
ifthen
begin
ifj
domino(i,j+1)
else
domino();
end
else
begin
ifthen
begin
f[i,j]:=1;
f[i,j+1]:=1;
ifj
domino(i,j+1)
else
domino();
f[i,j]:=0;f[i,j+1]:=0;
end;
ifthen
begin
f[i,j]:=2;
f[i+1,j]:=2;
ifj
domino(i,j+1)
else
domino();
f[i,j]:=0;f[i+1,j]:=0;
end;
end;
end;
begin
read(n,m);
fori:=1tondo
forj:=1tomdo
f[i,j]:=0;
ans:=0;
domino();
writeln(ans:0:0);
end.
2012年宁波市第2届中小学生计算机程序设计竞赛
组初赛试题
2）乐乐经常听MP3，由此他也学到了一些有关MP3的知识。下列有关MP3的信息中不正确的是：（）。
A）表达同一首乐曲时，MP3格式的文件大小比WAVE格式要小得多。
B）MP3声音是一种声音数字化之后经过压缩和编码技术处理得到的声音格式。
C）MP3音乐所采用的声音数据压缩编码的标准是JPEG。
D）MP3之所以得以流行，是因为MP3声音的质量好，存储容量小，便于传输与存储。
3）下图所示是一个16×16点阵的发光LED字幕模块，假如使用1表示点发光、0表示点熄灭，那么这个发光LED字幕模块如果要在计算机内部完整地保存，在不进行压缩的前提下，最少需要的存储空间是：（）。
A）8Byte
B）32Byte
C）8KB
D）32KB
4）在计算机系统中，数值一律用补码来表示（存储）。主要原因：使用补码，可以将符号位和其他位统一处理；同时，减法也可按加法来处理。那么在PASCAL系统中，-15用byte变量类型存储在计算机内，其二进制编码为：（）。
A）10001111B）00001111C）11110000D）11110001
5）十进制数2012.25用二进制数表示的结果是：（）。
A）（11111010101.1）2B）（11111011100.01）2
C）（1111001000.01）2D）（11111001000.1）2
6）乐乐在参加信息学奥赛的学习过程中，想在因特网上与他人进行即时讨论、交流，则下列工具中最适合的是：（）。
A）E-mail（电子邮件）B）BBS（电子公告栏）C）QQD）博客（Weblog）
7）下列不属于程序设计三种基本控制结构的是：（）。
A）顺序结构B）递归结构C）分支结构D）循环结构
8）胡老师发送电子邮件时失败了，根据下图所示信息，导致发送失败的最有可能的原因是：（）。
A）主题错误B）没有附件C）收件人地址错误D）邮件正文太少
9）下面是乐乐对计算机的一些操作，能有效预防计算机病毒侵入的是：（）。
①对下载的文件马上杀毒②打开QQ上陌生人信息中的链接补丁
③及时升级杀毒软件和病毒防火墙④及时修复系统漏洞⑤随意打开来历不明的邮件
A）①②③B）①③④C）②③⑤D）③④⑤
10）设A=B=D=true，C=false，以下逻辑运算表达式值为真的是：（）。
A）（notAandB）or（CandD）B）（AorBorD）andC
C）notAand（BorCorD）D）（AandBandC）orD
11）下列文件扩展名为图片格式的是：（）。
A）.docB）.jpgC）.txtD）.swf
12）高度为n的均衡二叉树是指：如果去掉最低层叶结点及相应的树枝，它的每一层都将达到“满”的状态，即除了最底下一层的节点，其他各层所有节点都有两个儿子。在这里，树高等于叶结点的最大深度（根结点的深度为0）。下图为一棵深度为2的均衡二叉树。
如果某均衡的二叉树共有256个结点，则该树的树高：（）。
A）6B）7C）8D）9
13）已知队列中依次存在下列元素（13，2，11，34，41，77，5，7，18，26，15），若第一个出队列的元素是13，则第五个出队列的元素是：（）。
A）5B）41C）77D）13
14）在一次运动会上，某组6位选手的百米成绩（单位：秒）分别是“14.1、12.3、11.2、14.8、13.9、11.0”，若使用冒泡排序法将该组的成绩按第一名、第二名、第三名……的顺序排序，则第一趟冒泡后的顺序是：（）。
A）12.311.214.111.013.914.8
B）12.311.214.813.911.014.1
C）14.112.311.214.813.911.0
D）11.014.112.311.214.813.9
15）上题中的六位选手成绩，通过纯粹的冒泡排序进行处理，则6个成绩排序结束，数据进行两两交换的总次数为（）次。
A）8B）10C）12D）14
二．问题求解（每小题5分，共10分）
1、。
1、programtest1;
vara,b,n:longint;
begin
readln(n);
a:=0;
b:=0;
repeat
a:=a+1;
b:=b+a;
untilb>=n;
writeln(a);
end.
输入1：
5
输出1：
输入2：
50
输出2：
2、programtest2;
vara,b,f:integer;
functiongd(m,n:integer):integer;
begin
ifn=0thengd:=m
elsegd:=gd(n,mmodn);
end;
begin
readln(a,b);
f:=gd(a,b);
writeln(f);
end.
输入1：
627
输出1：
_________
输入2：
5672
输出2：
_________
3、programtest3;
vari,j,k,n:integer;
a:array[1..100]ofboolean;
begin
read(n);
fori:=1tondoa[i]:=true;
fori:=1tondo
begin
j:=i;
whilej<=ndo
begin
a[j]:=not(a[j]);
j:=j+i;
end;
end;
fori:=1tondo
ifa[i]=truethenwrite(''0'','''')
elsewrite(''1'','''');
end.
输入：8
输出:____________
4、programtest4;
vara,b:array[1..1000]ofinteger;
i,j,t,h,n,e:integer;
begin
readln(n);
fori:=1tondoa[i]:=i;
a[1]:=1;h:=2;t:=n;b[1]:=1;e:=n;
fori:=2tondo
begin
forj:=1to2do
begin
ifh=e+1then
begin
e:=e-i+1;
break
end;
inc(t);
a[t]:=a[h];
inc(h);
end;
b[a[h]]:=i;inc(h);
end;
fori:=1tondo
write(b[i],'''');
end.
输入：10
输出:_____________
五．程序填空（前5空，每空2分，后6空，每空3分，共28分）
1、
（1）代码位置序号
代码位置序号是指包括校验码在内的，由右至左的顺序号（校验码的代码位置序号为1）。
（2）计算步骤
校验码的计算步骤如下：
a、从代码位置序号2开始，所有偶数位上的数字代码求和。
b、将步骤a的和乘以3。
c、从代码位置序号3开始，所有奇数位上的数字代码求和。
d、将步骤b与步骤c的结果相加。
e、用大于或等于步骤d所得结果且为10的最小整数倍的数减去步骤d所得结果即为所求校验码的值。
步骤举例说明（其中的X表示校验位的数字）
（1）自右向左顺序编号位置序号13121110987654321
代码978756400145X
（2）从序号2开始求出偶数位数字之和5+1+0+6+7+7=26①
（3）①式中的结果26乘以326×3=78②
（4）从序号3开始求出奇数位数字之和4+0+4+5+8+9=30③
（5）将②式和③式中的结果相加78+30=108④
（6）用大于或等于④式中108且为10最小整数倍的数减去④式结果。即：110-108=2，其差即为所求校验码的值校验码X=2
输入说明：输入13个数，为商品扫描器读入值，中间用空格隔开。
输出说明：第一行包含一个整数，表示校验位计算值。第二行输出true或false，表示商品扫描器读入是否正确。
【输入样例1】
9787564001452
【输出样例1】
2
true
【输入样例2】
9787564001453
【输出样例2】
2
false
请按上述说明将下列程序补充完整。
vard:array[1..13]of0..9;
i,s:integer;
begin
fori:=13downto1doread(d[i]);
readln;
for①__________________do
ifimod2=0thens:=②___________;
s:=③______________;
fori:=3to13doif④______________thens:=s+d[i];
s:=smod10;
ifs<>0thens:=10-s;
writeln(s);
if⑤_______________thenwrite(''true'')
elsewrite(''false'');
end.
2、320350
4
16040120
80110240
22070310
40400220
【样例输出】
550
请按上述说明将下列程序补充完整。
vari,j,n:integer;
tw,tv,maxk,temp_v,temp_w,temp_k:real;
b,temp:array[1..100]ofinteger;
v,w,k:array[1..100]ofreal;
begin
readln(tv,tw);
①__________________;
fori:=1tondoreadln(v[i],w[i],k[i]);
maxk:=0;
fori:=1to100dob[i]:=0;
while②___________do
begin
i:=1;
whileb[i]=1doinc(i);
b[i]:=1;
for③______________dob[j]:=0;
temp_v:=0;temp_w:=0;④______________;
forj:=1tondo
if⑤_______________then
begin
temp_w:=temp_w+w[j];
temp_v:=temp_v+v[j];
temp_k:=temp_k+k[j];
end;
if(temp_vmaxk)then
begin
⑥_______________;
forj:=1tondo
temp[j]:=b[j];
end;
end;
writeln(maxk:0:0);
end.
宁波市第27届中小学生程序设计竞赛参考答案
一、填空
1-5BCBDB6-10CBCBD11-15BCBDB
二、问题求解
1.60
2.1034
三、阅读程序并写出运行结果
1.310
2.38
3.10010000
4.15729631084
四、程序填空
1..i:=2to13
.s+d[i]
.s3
.Imod2<>0或Imod2=1或odd(i)
.s=d[1]
2.readln(n)
b[n+1]=0
j:=1toi-1
temp_k:=0
b[j]=1
maxk:=temp_k
2014年宁波29届中小学生计算机程序设计竞赛-小学组初赛试题答案
一、单项选择题：（每题分）二、问题求解：（每题5分）1．2．三、阅读程序写结果1.notaleapyear!
2.?27
3.?3021
4.?00210
四、完善程序(前4空（--④），每空分，后空（--⑧），每空分)（说明：以下各程序填空可能还有一些等价的写法，上机验证）1．?eof()
②x10
③?flag:=true
④?writeln(t,’’,x)
⑤flag:=false
2.?
⑥0
⑦readln(x);
⑧1
9.j+a[i]>x
10.continue
11.d[j]
宁波市历届中小学生计算机程序设计竞赛初赛试题
（D）k:=1;j:=n;x:=a[1];
whilek
while(kx)dodec(j);
ifk
while(k
ifk
end;
（C）sum:=0;k:=1;
whilek<=ndobegin
forj:=1tondo
sum:=sum+1;
k:=k2;
end;
（B）sum:=0;k:=1;
whilek<=ndobegin
forj:=1tokdo
sum:=sum+1;
k:=k+2;
end;
（A）max:=0;
fork:=1ton-1do
forj:=k+1tondo
ifmax
max:=abs(a[k]-a[j])
输出：
输出：
_______________________
1
2
图4
1
2
2
1
图3
1
1
图2
1
2
2
3
图1
3
1
3
1
2
【输出】：______________
【输出】：______________
【输入】：2357
【输出】：
__________
__________
【输入】：
72
126
【输出】：
_________
_________
【输入】：
8147
【样例输入】
32
11
52
67
-52
34
【样例说明】
输入：男性第1层差1,第2层差5,第7层差6
女性第2层差-5，第4层差3输：第1层差1,第2层差,第4层差3第7层差6
【样例输出】
11
02
34
67
【样例输入】
12+234+(45-5)(6+7)
【样例输出】
600
输入：
5
76839177
输出：
输入：
2
输出：
输入2：
10
40364729253522421358
输出：
输入1：
3
201030
输出：
输入2：
7
输出：
输入1：
3
输出：
|
|
