+9008111111是什么电话？？？？？？？？？？？？

+90开头的电话是来自土耳其的国际长途，就和中国+86是一样的。

但是网上通讯诈骗泛滥，诈骗分子手段“高超”，看这个电话的数字构成，肯定是诈骗电话的。

因为一般的电话号码数字构成是不会这样有规律的。

电信诈骗属于诈骗手段的一种，是以非法占有为目的，用虚构事实或者隐瞒真相的方法，骗取数额较大的公私财物的行为。其形式是多种多样，应当从以下几点加以防范：

1、注意避免个人资料外泄，对不熟悉的金融业务尽量不要在ATM机上操作，应到柜面直接办理。切勿相信“银行账户涉及犯罪”等谎言。

2、不要轻信陌生电话和短信。当接到疑似诈骗电话或短信时，要注意核实对方身份，尤其是对方要求向指定账户汇款时，不要轻易汇款，应第一时间告知家属商量解决或咨询公安机关;公安部门不可能提供安全账户，更不会指导您转账、设密码。

3、接到陌生电话、短信或不良信息，要主动向属地公安机关或电信监管部门举报。

附录：常用国际长途电话起始号码

澳大利亚 +43；法国+33；德国49；韩国82；澳门853；荷兰31；俄罗斯+7；

新加坡65；西班牙34；台湾886；泰国66；美国+1

针对现在混乱的黑莓市场，新手该如何选机？这里给大家解读！

1－检查机器运营商Logo标志：检查开机和关机Logo标志，凡是机器屏幕上显示运营商Logo标志和机器外壳上运营上标志不统一的，一定是换过外壳的；

2－按alt＋cap＋h，看帮助界面中，pin码、imei码是否是特殊序列的，有些商家自己会刷机，但是懒得动脑子，甚至会出现12345678之类的号码，如果出现这种有规律的码说明机器主板是重新烧录过低级主板程序的，以前一定出过问题，千万不能入手； 3-上网去查刚才看到的运营商码和pin码是否一致，如果pin查下来是匈牙利的（假冒最多）而运营商是AT& T（美国的），那一定也是主板被烧过号码或者程序了，不管是否有过维修、还是别人遗失的机器，这种机器不能要的； 4－sim卡插槽：不管开机还是关机状态下，都要特别检查这个地方，因为我已经遇到2台帮朋友买的7290发生了因为sim卡插槽不紧密，造成了机器一按任何按键就立刻重新启动的故障，所以一定要用正牌的标准sim卡去试试看，是否插入到位，是否发生歪斜和卡不住的情况，用移动的全球通卡是最好的，因为电信运营商，为了自身成本考虑，对于类似联通如意通、移动动感地带神州行等等的sim卡，实际上都是成本很低（厂家说16K容量出场价只卖到2元不到！！），因此卡片的质量不都是非常稳定的（反映速度、耗电、电器兼容性等等），偶然会遇到质量不好的卡，这种卡查到BB中一定会有问题的，因此要找比较好用的卡去试验，用来判断是BB问题还是卡的兼容性问题；

5－注意观察BB的无线电灵敏度：不同的BB灵敏度是不同的，尤其是翻修过的机器，因此需要你从BB桌面进入选项－》状态，注意看看电池容量是％多少？无线电信号是多少db（分贝），负值说明是接收灵敏度，越负的厉害越好，只管上如果用信号是几格来判断的话，会太模糊了。这时可以移动BB，同时改换BB的状态，例如横过来、平放、歪斜、左右摇动等，看BB的信号分贝数是否产生变化，一般灵敏度良好的BB，2秒内就能够看到信号的分贝数在发生变化，提供一个个人的经验值供大家参考：一般在信号三格时要求信号强度室－62dBm左右，越低越好，否则说明BB无线GPRS、GSM网络通讯部分接收灵敏度不佳；

6－电池容量：刚才让大家注意电池容量是％多少，如果重新启动几次后（重新启动会比常规使用消耗更多的电力），发现电池容量明显变少（BB能做到每5％就实时测出来，标准的BB电池是1000mAH的，5％就是50mAH，已经非常灵敏了），说明电池容量不足或者有问题，请商家为你再换块电池，至少5～10次重新启动中，外加2～3次3分钟以内电话，应该看不到BB产生明显的电池当前容量减少的情况的；

7－BB的锁：国内只有解锁的BB才能正常使用。BB的锁实际上不是一个，而是5个，分别是sim卡、网络、网络子集、服务提供商、公司，可以从桌面－》选项－》高级－》sim卡界面，然后输入mepd，这时应该显示BB的5个锁的状态了，切记网络锁如果是未激活的话，那么恭喜你了，这台BB还未解网络锁，老板如果现场给你解锁的话，就要输入解锁码解锁（软解）。如果也是已禁用，那说明机子是解过网络锁的了。另外注意服务提供商锁和公司锁，如果这两个锁没解开，那么分别以后无法改换运营商（例如移动换联通）和无法换公司（例如跳槽后接通新公司的邮件服务器）了，所以如果你有这方面要求或者遇到这方面的机器，多多小心了；BB越到最新东西就越多了，加密也就越厉害。

8－屏幕分辨率、亮度、颜色等：注意不只是看屏幕是否有划伤这么简单，还要注意屏幕的亮度是否均匀，尤其是下部，是否有光源分布不均匀产生的光斑；再有就是看屏幕灯光颜色，标准的应该是自然光，略发黄的那种，接近日光，老外崇尚自然嘛，如果是那种纯白色或者是发蓝光的，虽然屏幕亮度很好，但是告诉你这个绝对不是正宗的BB屏幕，赶快换台吧，黑莓屏幕也能翻新的，这个决不是新闻，翻新内容包括表面玻璃、背面灯光、背面的灯光反射折射材料等等；

9－机器的系统运行日志：主屏幕alt+lglg，可以进入机器日志查看器，这里记录了BB运行的全部日志，如果看到黑色大写斜体的条目，那个就是机器上运行程序出错的记录，小心对待了，看看是什么内容（滚轮滚动到这条，按回车就可进入了），里面有出错的软件模块名称，如果对BB不是很熟悉，我也没法教你，反正只要不是phone、SMS、wireless、network等有问题，一般都是软件问题，不用太在意，因为绝大多数人都会自己去刷机的，刷机之后这些东西会好的；如果以后正常了，记得再这里按滚轮，找选项，把你不需要跟踪的内容前面的勾去掉（滚轮到每个条目后按空格就行），省得BB干什么工作都写工作日志，搞的以后会过多占用内存的；

10－耳机、听筒、震动：这个是手机最基本的功能，千万要试验到，反正都说服老板开机了，干吗不顺手试试呢，还有就是用个磁铁试试机器是否能够修眠，不过我还没有遇到不会修眠的BB呢，虽然感觉有点多余，毕竟还是试试放心了。

分享

联想售后免费清灰的。

随着电子产品的普及和使用，灰尘也成为影响电子设备性能和寿命的主要因素之一。随着时间的推移，电脑、笔记本电脑等设备内部会堆积大量的灰尘，导致散热不良、风扇噪音大、死机、蓝屏等问题。而如何清理这些灰尘也成为消费者关心的问题。

近日，联想推出免费清灰服务，得到了广大客户的喜爱。与此同时，联想也提供了许多其他服务，如故障修补、数据恢复、个性化定制等。

这是联想背负着“贴心服务”的企业理念所做出的承诺。无论你是居家办公、学生、游戏爱好者、设计师还是企业用户，只要你购买联想电子产品，就能享受到全方位的售后服务保障。联想售后团队由专业技术人员组成，他们拥有丰富的经验和专业知识，能够快速识别和排除各种故障。

联想的商业布局

联想在全球180个国家和地区开展业务，业务布局非常均衡，在全球分为五个业务大区，中国、欧洲-中东-非洲、亚太其他地方、北美、拉美，联想的业务在每个大区都处于领先的位置。联想以中国为大本营，制造物流网络辐射全球。积极发展智能制造，引领产业升级。

联想在全球管理30多家制造基地，其中自有与合资工厂13家，合作工厂20余家。为全球用户生产个人电脑，智能设备，手机和服务器。

联想的生产基地遍布巴西，中国，匈牙利，印度，墨西哥，日本和美国等地，对于科技领域的任何公司来说，联想的制造足迹可以说是全球范围内最具全球性和灵活性的公司之一。

以上内容参考-联想

一选择一个正确答案代码(A/B/C/D,填入每题的括号内(每题15分,多选无分,共30分)

1)微型计算机的问世是由于( C ) 的出现。

A) 中小规模集成电路 B) 晶体管电路 C) (超)大规模集成电路 D) 电子管电路

2)下列说法中正确的是( B ) 。

A) 计算机体积越大,其功能就越强

B) CPU的主频越高,其运行速度越快

C) 两个显示器屏幕大小相同,则它们的分辨率必定相同

D)点阵打印机的针数越多,则能打印的汉字字体越多

3)Windows98中,通过查找命令查找文件时,若输入F , 则下列文件( C ) 可以被查到。

A) FBAS B) FABCBAS C) FC D) EF

4)CPU处理数据的基本单位是字,一个字的字长( D ) 。

A) 为8个二进制位 B) 为16个二进制位

C) 为32个二进制位 D) 与芯片的型号有关

5)资源管理器的目录前图标中增加"+"号,这个符号的意思是( B ) 。

A) 该目录下的子目录已经展开 B) 该目录下还有子目录未展开

C) 该目录下没有子目录 D) 该目录为空目录,

6)下列哪一种程序设计语言是解释执行的( B ) 。

A) Pascal B) GWBASIC C) C++ D) FORTRAN

7)启动WORD的不正确方法是( C ) 。

A) 单击Office工具栏上的Word图标

B) 单击"开始"→"程序"→Word

C) 单击"开始"→"运行",并输入Word按回车

D) 双击桌面上的"Word快捷图标"

8)多媒体计算机是指( D ) 计算机。

A) 专供家庭使用的 B) 装有CDROM的

C) 连接在网络上的高级 D) 具有处理文字、图形、声音、影像等信息的

9)在树型目录结构中,不允许两个文件名相同主要是指( D ) 。

A) 同一个磁盘的不同目录下 B) 不同磁盘的同一个目录下

C) 不同磁盘的不同目录下、 D) 同一个磁盘的同一个目录下

10)用画笔(Paintbrush)绘制图形并存储在文件中,该图形文件的文件名缺省的后缀为( B ) 。

A) jpg B) bmp C) gif D)tiff

11)E-ml地址中用户名和邮件所在服务器名之间的分隔符号是( B ) 。

E A) # B) @ C) & D) $

12)(05)10=( A ) 16

A) 01 B) 075 C) 08 D) 025

13)IP v4地址是由( B ) 位二进制数码表示的。

A) 16 B) 32 c) 24 D) 8

14)算式(2047)10一(3FF)16+(2000)8的结果是( A ) 。

A) (2048)10 B) (2049)10 C) (3746)8 D) (1AF7)16

15)下列叙述中,错误的是(C )

A) Excel中编辑的表格可以在Word中使用

B) 用Word编辑的文本可以存成纯文本文件

C) 用记事本(Notepa)编辑文本时可以插入

D) 用画笔(Paintbrush)绘图时可以输入文字

16)一个向量第一个元素的存储地址是100,每个元素的长度是2,则第5个元素的地址是( B )

A) 110 B) 108 C) 100 D) 109

17)在所有排序方法中,关键字比较的次数与记录的初始排列次序无关的是( D ) 。

A) 希尔排序 B) 起泡排序 C) 插入排序 D) 选择排序

18)在计算机网络中,Modem的功能是( C )

A) 将模拟信号转换为数字信号 B) 将数字信号转换为模拟信号

C) 实现模拟信号与数字信号的相互转换 D) 实现将模拟信号的数字信号

19)设有一个含有13个元素的Hash表(O~12),Hash函数是:H(key)=key % 13,其中%是求余数运算。用线性探查法解决冲突,则对于序列(2、8、31、20、19、18、53、27),18应放在第几号格中( B ) 。

A) 5 B) 9 C) 4 D) 0

20)要使1…8号格子的访问顺序为:82、63、73、1、4,则下图中的空格中应填人(A ) 。

1 2 3 4 5 6 7 8

4 6 1 -1 7 3 2

A) 6 B) O C) 5 D) 3

二问题求解:

1 如下图,有一个无穷大的的栈S,在栈的右边排列着1,2,3,4,5共五个车厢。其中每个车厢可以向左行走,也可以进入栈S让后面的车厢通过。现已知第一个到达出口的是3号车厢，请写出所有可能的到达出口的车厢排列总数(不必给出每种排列)。

1 2 3 4 5

S↓

32145 32154 32415 32451 32541 34215 34251 34521 35421

9种

2将N个红球和M个黄球排成一行。例如:N=2,M=3可得到以下6种排法:

红红黄黄黄 红黄红黄黄 红黄黄红黄 黄红红黄黄 黄红黄红黄 黄黄黄红红

问题:当N=4,M=3时有多少种不同排法(不用列出每种排法)

2221111

三．阅读程序:

program exp1;

var i,j,k,n,,L0,L1,LK:Integer;

a :array [020] of integer;

begin

readln(n,k);

for i:=0 to n-1 do a[i]:=i+1;

a[n]:=a[n-1];L0:=n-1; Lk:=n-1;

for I:=1 to n-1 do

begin

L1:=L0-k; if (l1<0) then L1:=L1+n;

If (l1=Lk) then begin

A[L0]:=a[n]; Lk:=Lk-1; a[n]:=a[Lk]; l0:=lk

End;

Else

Begin

A[l0]:=a[l1];l0:=l1;

End;

End;

A[L0]:=a[n];

For I:=0 to n-1 do write(a[I]:40;

Writeln;

End

输入:10 4

输出:

2)program exp2;

var n,jr,jw,jb:integer;

ch1:char;

ch:array[120]d char;

begin

readln(n);

for i:=1 to n do read(ch[i]):

jr:=1;jwz=n;jb:=n;:

while (jr<=jw)do

begin

if(ch[jw]='R')

then begin

ch1:=Ch[jr];Ch[jr]:=ch[jw];ch[jw]:=ch1:jr:=jr+13

end

else if ch[jw]='W'

then jw:=jw-1

else begin

ch1:=ch[jw];ch[jw]:=ch[jb];ch[jb]:=ch1;jw:=jw-1;jb:=jb-1;

end

end;

for i:=1 to n do write(ch[i]);

writeln;

end

输入:10

RBRBWWRBBR

输出:

3)Pmgram exp3;

Var I,j,p,n,q,s:integer;

a :array[120]of integer;

begin

readln(p,n,q);j :=21;

while (n>0)do

begin

j:=j-1;a[j]:=n mod 10;n:=n div 10;

end;

s:=0;

for i:=j t0 20 do s:=sp+a[i];

writeln(s);j :=21;

while (s>O)do

begin j:=j-1;a[j]:=s mod q;s:=s div q;end;

for i:=j to 20 do write(a[i]);readln;

end

输入:7 3051 8

输出:

四完善程序:

1问题描述:将n个整数分成k组(k≤n,要求每组不能为空),显然这k个部分均可得到一个各自的和s1,s2,……sk,定义整数P为:

P=(S1-S2)2+(S1一S3)2+……+(S1-Sk)2+(s2-s3)2+……+(Sk-1-Sk)2

问题求解:求出一种分法,使P为最小(若有多种方案仅记一种〉

程序说明:

数组:a[1],a[2],A[N]存放原数

s[1],s[2],,s[K]存放每个部分的和

b[1],b[2],,b[N]穷举用临时空间

d[1],d[2],,d[N]存放最佳方案

程序:

program exp4;

Var i,j,n,k : integer;

a :array [1100] of integer;

b,d:array [0100] of integer;

s :array[130] of integer;

begin

readln(n,k);

for I:=1 to n do read(a[I]);

for I:=0 to n do b[I]:=1;

cmin:=1000000;

while (b[0]=1) do

begin

for I:=1 to k do ①

for I:=1 to n do

②

sum:=0;

for I:=1 to k-1 do

for j:= ③

sum:=sum+(s[I]-s[j])(s[I]-s[j]);

if ④ then

begin

cmin:=sum;

for I:=1 to n do d[I]:=b[I];

end;

j:=n;

while ⑤ do j:=j-1;

b[j]:=b[j]+1;

for I:=j+1 to n do ⑥

end;

writeln(cmin);

for I:=1 to n do write(d[I]:40);

writeln;

end

2 问题描述:工厂在每天的生产中,需要一定数量的零件,同时也可以知道每天生产一个零件的生产单价。在N天的生产中,当天生产的零件可以满足当天的需要,若当天用不完,可以放到下一天去使用,但要收取每个零件的保管费,不同的天收取的费用也不相同。

问题求解:求得一个N天的生产计划(即N天中每天应生产零件个数),使总的费用最少。

输入:N(天数N<=29)

每天的需求量(N个整数)

每天生产零件的单价(N个整数)

每天保管零件的单价(N个整数)

输出:每天的生产零件个数(N个整数)

例如:当N=3时,其需要量与费用如下:

第一天 第二天 第三天

需要量 25 15 30

生产单价 20 30 32

保管单价 5 l0 0

生产计划的安排可以有许多方案,如下面的三种:

第一天 第二天 第三天 总的费用

25 15 30 252O+1530+3032=1910

40 0 30 4020+155+3032=1835

70 0 0 7020+455+3010=1925

程序说明:

b[n]:存放每天的需求量

c[n]:每天生产零件的单价

d[n]:每天保管零件的单价

e[n]:生产计划

程序:

Program exp5;

Var

i,j,n,yu,j0,j1,s:integer;

b,c,d,e: array[030]of integer; begin

readln(n);

for i:=1 to n do readln(b[[i],c[I],d[i]];

fori:=1 to n do e[i]:=0;

① :=10000;c[n+2]:=0;b[n+1]:=0;jO:=1;

while (jO<=n)do

begin

yu:=c[j0]; j1:=jO; s:=b[j0];

while ② do

begin

③ j1:=j1+1;s:=s+b[j1];

end;

④ jO:=j1+1;

end;

for i:=1 to n do ⑤

readln;

end

2、 35

三、 读程序写结果

1、7 8 9 10 1 2 3 4 5 6

2、RRRRWWBBBB

3、1065

2051

四、 补充程序

题一：

1、 S[I]：=0;

2、 S[b[I]]：=s[bi]]+a[I];

3、 I+1 to k do

4、 (cmin> sum )

5、 (bj)=k)

6、 b[I]：=1;

题二：

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);

2003的:

第九届分区联赛普及组初赛试题

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

一．选择一个正确答案代码(A／B／C／D／E)，填入每题的括号内(每题1．5分，共30分)

　　1．下列计算机设备中，既是输入设备，又是输出设备的是( )。

　　　　A)键盘 B)触摸屏 C)扫描仪 D)投影仪 E)数字化仪

　　2．下列分辨率的显示器所显示出的图像，最清晰的是( )。

　　　　A)800600 B)1024768 C)640480 D)12801024 E)8001000

　　3．下列说法中，正确的是( )。

　　　　A)在内存中，可执行程序用二进制码表示，源程序用八进制表示。

　　　　B)程序和数据在内存中都是用二进制码表示的。

　　　　C)内存中数据的存取是以二进制位为单位的。

　　　　D)中央处理器CPU执行的每条指令的长度都不同。

　　　　E)一般来说，在计算机内部，中文信息用十六进制表示，英文信息用八进制表示。

　　4．下列说法中，错误的是( )。

　　　　A)程序是指令的序列，它有三种结构：顺序、分支和循环。

　　　　B)地址总线决定了中央处理器CPU所能访问的最大内存空间的大小。

　　　　C)中央处理器CPU内部有寄存器组，用来存储数据。

　　　　D)不同厂家生产的CPU所能处理的指令集不一定相同。

　　　　E)数据传输过程中不可能会出错。

　　5．CPU访问内存的速度比访问下列哪个存储设备要慢( )。

　　　　A)寄存器 B)硬盘 C)软盘 D)磁带 E)光盘

　　6．下列电子邮件地址，正确的是( )。

　　　　A)wang@hotmailcom B)cai@jccpctool@rfedujp

　　　　C)16210511122 D)ccfeducn

　　　　E)http：//wwwsinacom

　　7．数字图像文件可以用下列哪个软件来编辑( )。

　　　　A)画笔(Paintbrush) B)记事簿(Notepad) C)Recorder

　　　　D)WinRAR E)MidiSoft

　　8．下列哪个软件不是操作系统软件的名字( )。

　　　　A)Windows XP B)DOS C)Linux D)OS／2 E)Arch／Info

　　9．下列哪个不是个人计算机的硬件组成部分( )。

　　　　A)主板 B)操作系统 C)电源 D)硬盘 E)软驱

　　10．图灵(Alan Turing)是( )。

　　　　A)美国人 B)英国人 C)德国人 D)匈牙利人 E)法国人

　　11．第一个给计算机写程序的人是( )。

　　　　A)Alan Mathison Turing

　　　　B)Ada Lovelace

　　　　C)John von Neumann

　　　　D)John McCarthy

　　　　E)Edsger Wybe Dijkstra

　　12．十进制数2003等值于二进制数( )。

　　　　A)11111010011 B)10000011 C)110000111 D)010000011l E)1111010011

　　13．运算式(2008)10－(3723)8的结果是( )。

　　　　A) (-1715)10 B) (5)10 C) (-5)16 D) (111)2 E) (3263)8

　　14．下列关于程序语言的叙述，不正确的是( )。

　　　　A)编写机器代码不比编写汇编代码容易。

　　　　B)高级语言需要编译成目标代码或通过解释器解释后才能被CPU执行。

　　　　C)同样一段高级语言程序通过不同的编译器可能产生不同的可执行程序。

　　　　D)汇编代码可被CPU直接运行。

　　　　E)不同的高级语言语法略有不同。

　　15．假设A=true，B=false，C=true，D=true，逻辑运算表达式A∧B∨C∧D的值是( )。

　　　　A)true B)false C)0 D)1 E)NULL

　　16．一个高度为h的二叉树最小元素数目是( )。

　　　　A)2h+l B)h C)2h-1 D)2h E)2h-l

　　17．已知队列(13，2，11，34，41，77，5，7，18，26，15)，第一个进入队列的元素是13，则第五个出队列的元素是( )。

　　　　A)5 B)41 C)77 D)13 E)18

　　18．下列关于文件的叙述，不正确的是( )。

　　　　A)一个可执行程序其实也是一个文件。

　　　　B)文件可大可小，大的文件一张软盘装不下。

　　　　C)一个文件夹下面可以有两个同名的文件，只要它们的大小不同就行了。

　　　　D)文件的创建日期和最新修改日期可以在资源管理器中看到。

　　　　E)某些文件的内容可以用记事本(Notepad)看到。

　　19．活动硬盘的容量比固定硬盘的容量( )。

　　　　A)大 B)小 C)相等 D)不一定大 E)大致相等

　　20．IP地址是一个( )位二进制码。

　　　　A)8 B)16 C)32 D)64 E)12

二．问题求解(每题5分，共10分)

　　1．现在市场上有一款汽车A很热销，售价是2万美元。汽车A每加仑汽油可以行驶20英里。普通汽车每年大约行驶12000英里。油价是每加仑1美元。不久我公司就要推出新款节油汽车B，汽车B每加仑汽油可以行驶30英里。现在我们要为B制定价格(它的价格略高于A)：我们预计如果用户能够在两年内通过节省油钱把B高出A的价钱弥补回来，则他们就会购买B，否则就不会购买B。那么B的最高价格应为　　　　万美元。

　　2．无向图G有16条边，有3个4度顶点、4个3度顶点，其余顶点的度均小于3，则G至少有　　　　个顶点。

三．阅读程序(每题8分，共32分)

1．program Programl；

　 var

　　 a，x，y，okl，ok2：integer；

　 begin

　　 a ：=100：

　　 x：=l0；

　　 y：=20；

　　 okl：=5：

　　 ok2：=0；

　　 if ((x>y) or ((y<>20) and (okl=0)) and (ok2<>0)) then

　　　 a：=1

　　 else if ((okl<>0) and (ok2=、0)) then

　　　　　 a：=-1

　　　　 else

　　　　　 a：=0；

　　 writeln(a)；

　 end．

输出：　　　　

2．program Program2；

　 var

　　a，t：string；

　　i，j：integer；

　 begin

　　a：=`morning`；

　　j：= l；

　　 for i：=2 to 7 do

　　　 if (a[j]<a[i])then

　　　　　j：= i；

　　 j：= j-1；

　　 for i：=1 to j do

　　　 write (a[i])；

　　end．

输出：　　　　

3．program Program3；

　 Var

　　 a，b，c，d，sum：longint；

　 begin

　　 read (a，b，c，d)；

　　 a：=a mod 23：

　　 b：=b mod 28；

　　 c：=c mod 33；

　　 sum：=a5544+b 14421+c1288-d;

　　 sum：=sum+21252;

　　 sum：=sum mod 21252;

　　 if (sum=0)then

　　　　sum：=21252;

　　 writeln(sum)；

　 end．

输入：283 102 23 320 输出：　　　　

4．program program4；

　 var

　 a： array[0．．5] of integer；

　 sum，n，max，i，j，k：integer；

　 cover：array[0．．22000]of boolean；

　 begin

　　 read (a[5]，a[4]，a[3]，a[2]，a[1]，a[0])；

　　 if ((a[5]=0) and (a[3]=0) and (a[1]=0)) then

　　 begin

　　　a[5]：=a[4]；a[4]：=a[2]； a[3]：=a[0]； a[2]：=0 a[0]：=0；

　　 end：

　　 for i：=0 to 5 do

　　 if (a[i]>10) then a[i]：=10+(a[i] mod 2)；

　　 sum：=0：

　　 for i：=0 to 5 do sum：=sum+a[i](6-i)；

　　 if ((sum mod 2) <>0) then　　begin

　　　　　　　　　　　　　　　　　　writeln(`Can``t be divided`)；

　　　　　　　　　　　　　　　　　　Exit;

　　　　　　　　　　　　　　　　End;

　　 sum：=sum div 2； max：=0； cover[0]：=True；

　　 for i：=1 to sum2 do cover[i]：=False；

　　 for i：=0 to 5 do

　　 begin

　　　 j：=0；

　　　 while (j<a[i])do

　　　　 begin

　　　　　 for k：=max downto 0 do

　　　　　　 begin if (cover[k]) then cover[k+6-i]：=True；end；

　　　　　max：=max+6-i： j：=j+1；

　　　　 end;

　　　end;

　　　if (cover[sum]) then writeln (`Can be divided`)

　　　　　　　　　　　else writeln(`can``t be divided`)；

　 end．

输入：4 7 9 20 56 48 输入：1000 7 101 20 55 1 输入：2000 5 l 1 0 0

输出：　　　　　　　 输出：　　　　　　　　　 输出：　　　　　　　　

四、完善程序(第l空2分，其余每空3分共28分)

　　1．一元二次方程

　　题目描述：

　　　　方程ax＾2+bx+c=0，要求给出它的实数解．

　　输 入：

　　　　三个实数：a，b，c，是方程的三个系数(a≠0)．

　　输 出：

　　　　如果无实数解，则输出"No solution"；

　　　　如果有两个相等的实数解，则输出其中一个，四舍五入到小数点后面3位；

　　　　如果有两个不等的实数解，则解与解之间用逗号隔开，同样要四舍五入到小数点后3位。

　　输入样例：

　　　　　　l 2 1

　　输出样例：

　　　　　　-1000

　　程 序：

　　　　program Program41；

　　　　var

　　　　　a，b，c，m：real；

　　　　begin

　　　　　read (a，b，c)；

　　　　　m：=bb -4ac；

　　　　　if ( ① )then

　　　　　　begin

　　　　　　　write ( ② ：0：3)；

　　　　　　　write( ` , ` );

　　　　　　　write ((-1b-sqrt(m))／(2a)：0： ③ )；

　　　　　　end

　　　　　　else if ( ④ )then

　　　　　　　write( ⑤ )

　　　　　　　else begin

　　　　　　　　　　write (`No solution`)；

　　　　　　　　　 end

　　　　end．

　　2．翻硬币

　　题目描述：

　　一摞硬币共有m枚，每一枚都是正面朝上。取下最上面的一枚硬币，将它翻面后放回原处。然后取下最上面的2枚硬币，将他们一起翻面后再放回原处。再取3枚，取4枚……直至m枚。然后再从这摞硬币最上面的一枚开始，重复刚才的做法。这样一直做下去，直到这摞硬币中的每一枚又都是正面朝上为止。例如，m为1时，翻两次即可。m为2时，翻3次即可；m为3时，翻9次即可；m为4时，翻11次即可；m为5时，翻24次即可；…；m为30时，翻899次即可；…

　　输 入：

　　仅有的一个数字是这摞硬币的枚数m，0<m<1000。

　　输 出：

　　为了使这摞硬币中的每一枚又都是正面朝上所必需翻的次数。

　　输入样例：

　　　　　　30

　　输出样例：

　　　　　　899

　　程 序：

　　　　program Programl；

　　　　var m：integer；

　　　　　function solve (m：integer)：integer；

　　　　　vat i，t，d：integer；

　　　　　　　flag：boolean;

　　　　　begin

　　　　　　if (m=1)then

　　　　　　　so1ve：= ①

　　　　　　else begin

　　　　　　　　　d：=2m+1；

　　　　　　　　　t：= 2;

　　　　　　　　　i：= 1;

　　　　　　　　　flag：=False；

　　　　　　　　　repeat

　　　　　　　　　　if (t=1)then

　　　　　　　　　　　begin

　　　　　　　　　　　　solve：= ②

　　　　　　　　　　　　flag：=True；

　　　　　　　　　　　end

　　　　　　　　　　else if ( ③ )then

　　　　　　　　　　　　　　begin

　　　　　　　　　　　　　　　solve：=im-1；

　　　　　　　　　　　　　　　flag：=True；

　　　　　　　　　　　　　　end

　　　　　　　　　　　　　else

　　　　　　　　　　　　　　t：= ④ ；

　　　　　　　　　　i：=i+1；

　　　　　　　　　until flag；

　　　　　　　　end

　　　　　　end;

　　　　begin

　　　　　read (m);

　　　　　if ((m＞0) and (m＜1000)) then

　　　　　　writeln ( ⑤ );

　　　　end

答案:

第九届分区普及组初赛参考答案

一、 选择一个正确答案代码（A/B/C/D/E），填入每题的括号内（每题15分，多选无分，共30分）

题号 1 2 3 4 5 6 7 8 9 10

选择 B D B E A A A E B B

题号 11 12 13 14 15 16 17 18 19 20

选择 B A B D A B B C D C

二．问题解答（每题5分，共10分）

　　1．答： 204

　　2．答： 11

三．阅读程序，并写出程序的正确运行结果： (每题8分，共32分)

　　（1）程序的运行结果是：-1

　　（2）程序的运行结果是；mo

　　（3）程序的运行结果是：8910

　　（4）程序的运行结果是：Can't be divided　　Can be divided　　Can't be divided

四．根据题意，将程序补充完整(第1空2分，其余每空3分 共28分)

PASCAL语言

=================

　　题一

　　① m>0

　　② (-lb+sqrt(m))／(2a)；

　　③ 3

　　④ ABS（M）＜00001

　　⑤ -1b/(2a):0:3

　　题二

　　① 2

　　② im

　　③ t=2m

　　④ (t2)mod d

　　⑤ solve(m)