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
输出1
样例2：
输入：200
输出：0
参考答案：
program a1;
var a,b,c,n:integer;
input,output:text;
begin
assign(input,'a1.in');
assign(otuput,'a1.out');
reset(input);
rewrite(output);
read(input,n);
a:=n div 100;
b:=n mod 100 div 10;
c:=n mod 10;
if a*a*a+b*b*b+c*c*c=n then write(output,1)
else write(output,0);
close(input);
close(output);
end.
第2题：走阶梯(程序文件名a2.pas,20分)
有一个长阶梯，如果每步跨2阶最后剩1阶，如果每步跨3阶最后剩2阶，如果每步跨4阶最后剩3阶，如果每步跨5阶最后剩4阶，如果每步跨6阶最后剩5阶，只有当每步跨7阶时恰好走完，问这个阶梯有多少阶？输出(a2.out)：一行，要求统计的结果。
参考答案：
program a2;
var i:integer;
output:text;
begin
assign(output,'a2.out');
rewrite(output);
for i:=1 to 1000 do
if (i mod 2=1) and (i mod 3=2) and (i mod 4=3) and (i mod 5=4) and (i mod 6=5) and (i mod 7=0) then write(output,i);
close(output);
end.
第3题：摘红苹果(程序文件名a3.pas，20分)
小明爷爷家有棵苹果树，树上高低不一的长了n个红苹果。一天，m个
小朋友到爷爷家做客，爷爷说：你们每人最多可以摘两个红苹果，而且只许伸手摘，不允许借助其它工具，摘下的苹果大家分享。由于小朋友的身高参差不齐，怎样才能使他们摘的苹果总数最多呢？请你计算小朋友们最多能摘到多少个苹果？
输入(a3.in):第1行，两个用空格隔开的整数n和m(n<=100,m<=20);
第2行，n个用空格隔开的整数，分别表示每个苹果的高度；
第3行，m个用空格隔开的整数，分别表示每个小朋友伸手能达到的高度(到达苹果即可摘到)。
输出a3.out：一行，一个整数，小朋友们最多能摘到的苹果数。
样例：
输入10 4
110 100 150 90 100 135 160 88 130 140
120 100 110 80
输出：5
参考答案：
program a3;
var m,n,i,j,c,d:integer;
a,b:array[1..1000] of integer;
input,output:text;
begin
assign(input,'a3.in');
assign(output,'a3.out');
reset(input);
rewrite(output);
read(input,n,m);
for i:=1 to n do
read(input,a[i]);
for i:=1 to m do
read(input,b[i]);
for i:=1 to m-1 do
for j:=i+1 to m do
if b[i]>b[j] then begin
c:=b[i];
b[i]:=b[j];
b[j]:=c;
end;
for i:=1 to m do
begin
c:=0;
for j:=1 to n do
if (b[i]>=a[j]) and (c<2) then begin
c:=c+1;
