2018第十六届绍兴市少儿信息学竞赛初赛试题

第十六届绍兴市少儿信息学竞赛

初赛试题

(小学组PASCAL语言二小时完成）

●●全部试题答案都要求写在答卷纸上，写在试卷上一律无效●●

一、选择一个正确答案代码（A/B/C/D)，填入每題的括号内（每题2分，每题只有一个正确答案，多选无分。共20分）

1、人工智能英文缩写为（）。它是研究、开发用于模拟、延伸和扩展人的智能的理论、方法、技术及应用系统的一门新的技术科学。他是计算机科学的一个分支，它企图了解智能的实质，并生尸出一种新的能以人类智能相似的方式做出反应的智能机器，该领域的研究包括机器人、语言识别、图像识别、自然语言处理和专家系统等。

A. AT

B. ALBB

C. AM

D. AI

2、下列存储器按存取速度由快至慢排列，正确的是（）

A.硬盘〉RAM 〉高速缓存〉U盘

B.高速缓存〉RAM 〉硬盘〉U盘

C.髙速缓存〉硬盘〉RAM 〉U盘

D. U盘〉硬盘〉RAM 〉高速缓存

3、下列属于输入设备的是（）

A.显示器

B.触摸屏

C.音响

D.打印机

4、小写字母“a”的ASCII码为97,小写字母i的ASCII码的值是（）

A. 72

B. 73

C. 105

D. 106

5、IP地址是每个上网的电脑必须的，下列IP地址中合法的是（）

A. 225.225. 225.225

B. 200.256.192. 8

C. 192.168.1.1. 2

D.0.0.0

6、下列描述计算机病毒的特性中，（）不是正确的。

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.i

8、若设二叉树的深度为h,除第层外，其它各层（1〜h-1)的结点数都达到最大个数，第h层所有的结点都连续集中在最左边，这就是完全二叉树。如图1所示，共有10个结点，5个叶子结点,深度为4, 1~3层的结点数都达到了最大个数。那么如果完全二叉树共计39个点，那么他的叶子结点的数量是（）。

A.20

B.21

C. 19

D. 23

9、有一下程序：

var i, x1, x2, x3, x4, s: integer;

begin

for i:=1800 to 2000 do

begin

x4:=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;

图1

end;

writeln(s);

end.

程序运行结果是（）：

A. 1

B.2

C.3

D. 10

10、哥德巴赫猜想是一个数学界非常有名的猜想，他的意思是任何大于等于4的偶数都可以表示成为两个质数之和，例如5=2+3, 8=3+5, 4=2+2。那么把112分解成两个质数之和有 ( )种方法。

A. 14

B. 16

C.18

D. 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;

begin

readln (a, b, c, d);

if a>b then a:=a div 10;

if d>c then

writeln( ‘Time Limit Exceeded’) else

if (a

writeln(‘Wrong Answer’)

else

if (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; begin

readln(n);

for i:=1 to n do

begin

read(x);

f[x]:=f[x]+1；

for j:=x+1 to 100 do

if f[j]>0 then s:=s+1; end;

writeln(s);

end.

输入：

6

12 19 14 17 16 16

输出：