青岛市程序设计竞赛试题14 - 试题.docx

用空格隔开的整数，分别表示每个小朋友伸手能达到的高度(到达苹果即可摘到)。输出a3.out：一行，一的结果。参考答案：programa2;vari:integer;output:text;beginarite(output);writeln(output);readln(input,st);foriut);rewrite(output);read(input,n);a:=ndiv100;b:=nm

用空格隔开的整数，分别表示每个小朋友伸手能达到的高度(到达苹果即可摘到)。输出a3.out：一行，一

的结果。参考答案：programa2;vari:integer;output:text;begina

rite(output);writeln(output);readln(input,st);fori

ut);rewrite(output);read(input,n);a:=ndiv100;b:=nm

2011

2011年09月02日信息来源：胶州市教育体育局作者：杨妮妮鲍燕点击数：1840审核者：胶州市教育体育局

(比赛时间60分钟，试题满分100分)

说明：1、必须以题目中规定的文件名进行保存，并用ftp上传到指定文件夹中。ftp上传使用说明在试题最后，请选手每做完一道题及时上传一次，以确保因机器故障引起的文件丢失。

2.使用竞赛规定的文件格式输入、输出。

(1)对于使用pascal语言的选手，请参照以下格式使用文件输入输出：Begin

Assign(input,’输入文件名’；)assign(output,‘输出文件名’；)

Reset(input);rrewrite(output);

……

Close(input);close(output);

End.

(2)对于c或c++选手，如果尚未掌握文件输入输出，请参考以下我们提供的一种方法进行文件输入输出。在主函数即main()的开始部分加入以下代码：

Freopen(“输入文件名”，”r”,stdin);

Freopen(“输出文件名”，“w”，stdout);

程序结束时无须像pascal选手一样，关闭文件，系统将自动关闭读写的文件。

对于c选手，请调用头文件stdio.h

对于c++选手，请调用头文件iostream

第1题水仙花数(程序文件名a1.pas,20分)

有一些100-999之间的整数具有这样的性质，该数的各位数字的立方之和等于该数本身，这种数人们把它称为水仙花数。例如153是个水仙花数，因为13+53+33=153。编程输入一三位正整数N(100=n=999)，判断是否是水仙花数，如是输出整数1，不是输出整数0。

输入(A1.in)：一行，一个整数n(100=n=999)

输出(a1.out):一行，一个整数。若N是水仙花数则输出1，否则输出0。样例1：

输入153

，请调用头文件stdio.h对于c++选手，请调用头文件iostream第

，请调用头文件stdio.h对于c++选手，请调用头文件iostream第1题水仙花数(程序文件名a

i:integer;k,j,l:char;b,st:string;beginassign(input

t);reset(input);rewrite(output);read(input,n,m);f

;close(input);close(output);end.第4题找字符(程序文件名a4.pas

样例2：

输入：200

输出：0

参考答案：

programa1;

vara,b,c,n:integer;

input,output:text;

begin

assign(input,a1.in);

assign(otuput,a1.out);

reset(input);

rewrite(output);

read(input,n);

a:=ndiv100;

b:=nmod100div10;

c:=nmod10;

ifa*a*a+b*b*b+c*c*c=nthenwrite(output,1)

elsewrite(output,0);

close(input);

close(output);

end.

第2题：走阶梯(程序文件名a2.pas,20分)

有一个长阶梯，如果每步跨2阶最后剩1阶，如果每步跨3阶最后剩2阶，如果每步跨4阶最后剩3阶，如果每步跨5阶最后剩4阶，如果每步跨6阶最后剩5阶，只有当每步跨7阶时恰好走完，问这个阶梯有多少阶？输出(a2.out)：一行