第十六届绍兴市少儿信息学竞赛初赛试题(小学组PASCAL语言二小时完成）●●全部试题答案都要求写在答卷纸上，写在试卷上一律无效●●一、选择一个正确答案代码（A/B/C/D)，填入每題的括号内（每题2分，每题只有一个正确答案，多选无分。
共20分）1、人工智能英文缩写为（）。
它是研究、开发用于模拟、延伸和扩展人的智能的理论、方法、技术及应用系统的一门新的技术科学。
他是计算机科学的一个分支，它企图了解智能的实质，并生尸出一种新的能以人类智能相似的方式做出反应的智能机器，该领域的研究包括机器人、语言识别、图像识别、自然语言处理和专家系统等。
A. ATB. ALBBC. AMD. AI2、下列存储器按存取速度由快至慢排列，正确的是（）A.硬盘〉RAM 〉高速缓存〉U盘B.高速缓存〉RAM 〉硬盘〉U盘C.髙速缓存〉硬盘〉RAM 〉U盘D. U盘〉硬盘〉RAM 〉高速缓存3、下列属于输入设备的是（）A.显示器B.触摸屏C.音响D.打印机4、小写字母“a”的ASCII码为97,小写字母i的ASCII码的值是（）A. 72B. 73C. 105D. 1065、IP地址是每个上网的电脑必须的，下列IP地址中合法的是（）A. 225.225. 225.225B. 200.256.192. 8C. 192.168.1.1. 2D.0.0.06、下列描述计算机病毒的特性中，（）不是正确的。
A、潜伏性B、传染性C、智能性D、危害性7、己知一个栈的入栈顺序是1, 2, 3, n,其输出序列为P1，P2， P3，……，pn，如果P1是n,则Pi是（）A、不确定B、n-i+1 C.n-1 D.i8、若设二叉树的深度为h,除第层外，其它各层（1〜h-1)的结点数都达到最大个数，第h层所有的结点都连续集中在最左边，这就是完全二叉树。
如图1所示，共有10个结点，5个叶子结点,深度为4, 1~3层的结点数都达到了最大个数。
那么如果完全二叉树共计39个点，那么他的叶子结点的数量是（）。
A.20B.21C. 19D. 239、有一下程序：var i, x1, x2, x3, x4, s: integer;beginfor i:=1800 to 2000 dobeginx4:=i mod 10；x3:=i div 10 mod 10;x2:=i div 100 mod 10;x1:=i div 1000 mod 10;if (x1=x4) and (x2=x3) then s:=s+1;图1end;writeln(s);end.程序运行结果是（）：A. 1B.2C.3D. 1010、哥德巴赫猜想是一个数学界非常有名的猜想，他的意思是任何大于等于4的偶数都可以表示成为两个质数之和，例如5=2+3, 8=3+5, 4=2+2。
那么把112分解成两个质数之和有 ( )种方法。
A. 14B. 16C.18D. 20二、根据要求回答问題：（2+3+2+3=10分）1、在数学王国中，数字6和8称吉祥数字，而其他数字都是不怎么吉祥。
如果一个整数是吉祥数字，当且仅当它的每一位只能包含吉祥数字。
现在让你求出第K个吉祥数字。
例如：前八个吉祥数字为：6,8,66,68,86,88,666,668,第10个吉祥数字为。
第29个吉祥数字为。
2、魔术是很神奇的!瞧，泽泽同学最近又迷恋上了一款新的魔术。
魔术刚开始前，魔术纸上的4个点形成一个完美的正方形（见图2)。
经过1次魔法后，在每两个相邻点中心会产生一个新点，并且在每个正方形的正中心也会产生一个新点。
经过第1次的魔法，会产生5 个新点，共有9个点（见图3)。
再经过一次魔法（总共2次魔法)，此时共有25个点（见图4) 。
现在请你帮助算出，经过3次魔法一共有个点，经过7次魔法一共有个点。
三、阅读程序并写出运行结果（4+4+8+8+4+4+8=40分）1. Program sx2018p1;var n, i, a, b, c, d: longint;beginreadln (a, b, c, d);if a>b then a:=a div 10;if d>c thenwriteln( ‘Time Limit Exceeded’) elseif (a<b) thenwriteln(‘Wrong Answer’)elseif (a=b) then writeln(‘Accepted’）；end.输入1:1000 100 765 155输出1:输入2:20 37 8 9输出2：2、Program sx2018p2:var i, j, n, s, x: longint;f:array[1..100] of longint; beginreadln(n);for i:=1 to n dobeginread(x);f[x]:=f[x]+1；for j:=x+1 to 100 doif f[j]>0 then s:=s+1; end;writeln(s);end.输入：612 19 14 17 16 16输出：3、 Program sx2018p3;var f:array[0.. 10000] of boolean;n, k, i, j, s: longint;beginreadln (n, k);for i:=2 to n doif f[i]=false thenfor j:=1 to n div i doif f[i*j]=false thenbegins:=s+1;f[i*j]:=true;if s=k thenbeginwriteln(i*j);halt;end;end;end.输入：40 31输出：4. Program sx2018p4;var n, m, i, j: longint;a:array[1.. 50,1.. 50] of char;b:array[1.. 5] of longint;beginreadln (n, m);n:= n*5+1;m:=m*5+1l;for i:=1 to n dobeginfor j:=1 to m doread(a[i,j]);readln;end;for i:=1 to n dofor j:=1 to m doif (a[i,j]<>’#’）and (i mod 5=2) and (j mod 5=2)then beginif a[i，j]= ’.’ then b[1]:=b[1]+1else if (a[i，j]=’*’)and (a[i+1,j]=’.’) then inc(b[2])else if (a[i+1，j]= ’*’)and (a[i+2,j]=’.’) then inc(b[3]) else if (a[i+2,j] =’*’）and (a[i+3,j]=’.’)then inc(b[4])else if (a[i+3, j]= ’*’) then inc(b[5]); end;for i:=1 to 5 do write(b[i],’’)；end.输入1:1 2############....#****##....#****##....#****##....#****############输出1：输入2：2 4######################****#****#****#****##****#....#****#****##....#....#****#****##....#....#....#****#######################****#****#****#....##****#****#....#....##....#....#....#....##....#....#....#....######################输出2：5. Program sx2018p6;var n:longint;function s(n, t:longint):longint;beginif n=0 then exit (1)else if t=0 then s:=s(n-l, t+1)else s:=s(n-l, t+l)+s(n, t-1); end;beginreadln (n);writeln(s(n, 0));end.输入：4输出：四、完善程序（根据问題要求和已有程序，在程序空格处填入适当的语句或符号，使程序完整。
本题每3分，共30分）1. 完全数【问题描述】在泽泽参加的“奇思妙想学数学”的思维拓展兴趣课中，老师抛出了一些有趣好玩的数字游戏，取名为“完全数”，所谓完全数是真约数之和等于它本身的数。
例如28的约数是 1, 2, 4，7, 14,并且1+2+4+7+14=28,所以28是完全数。
这个游戏对数字特别感兴趣的泽泽来说是“小意思”，因为他认为“完全数”是最美的数字。
泽泽不屑于判断单个数是否是完全数，他想找出一段连续数据里面的所有完全数，如求x〜y (2<=x<=y<=10000)中的完全数。
但是他又感觉每个完全数进行正向输出又没有反向输出好看，所以他想把找到的完全数反向输出。
当然如果这段数据里面没有完全数就应该输出no。
【输入格式】一行：包括两个数，x y代表求x〜y之间的完全数。
【输出格式】输出可能有多行，每行一个反向输出的完全数。
注：如果没有完全数，则还应该输出 no。
【输入样例1】2 29【输出样例1】682实现上述功能程序如下,请在划线处填入合适代码。
【程序清单】Program sx2018p7;var x, y,i,t,w,xx,s,j, sum,p: longint;beginreadln(x,y);for i:= ① to y dobegins:=1;for j:=2 to trunc(sqrt(i)) do //求出约数的之和if ② thenbeginif j*j<>i then③else s:=s+j;end;if s=i then //如果找到话就输出beginw:=w+l;while s>0 dobegin④ ;s:=s div 10;end;writeln;end;if w=0 then ⑤;end.2.罗马数字【问题描述】聪明的泽泽经过独立的思考成功地找到了 x〜y中所有的完全数，他在教室里兴奋得“一蹦三尺高”，还不停地攥紧拳头，髙呼“耶。
”。
这时老师为了让他能够乘胜追击，锦上添花，再次抛出了另一个数学游戏，叫做“罗马数字游戏”。
老师先给大家描述这个游戏，游戏中的数字 1，2,3,4,5,6,7,8,9 分别写为’I’, ’II’, ’III’,’IV’，’V’, ’VI’，’VII’，’VIII’,’IX’;将数字 10,20,30,40,50,60,70,80,90 分别写为’X’，’XX’，’XXX’，’XU’，’L’，’LX’，’LXX’，’LXXX’，’XC’。