2023年青岛市程序设计竞赛试题

2023年青岛市程序设计竞赛试题(小学组)答案。

2023年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选手，请调用头文件对于c++选手，请调用头文件iostream

第1题水仙花数(程序文件名分)

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

输入(一行，一个整数n(100<=n<=999)

输出(一行，一个整数。若n是水仙花数则输出1，否则输出0。样例1：输入153

输出1样例2：输入：200输出：0参***：

program a1;

var a,b,c,n:integer;input,output:text;begin

assign(input,''assign(otuput,''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题：走阶梯(程序文件名分)

有一个长阶梯，如果每步跨2阶最后剩1阶，如果每步跨3阶最后剩2阶，如果每步跨4阶最后剩3阶，如果每步跨5阶最后剩4阶，如果每步跨6阶最后剩5阶，只有当每步跨7阶时恰好走完，问这个阶梯有多少阶？输出(一行，要求统计的结果。参***：

program a2;var i:integer;output:text;begin

assign(output,''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 mod6=5) and (i mod 7=0) then write(output,i);close(output);end.

第3题：摘红苹果(程序文件名分)

小明爷爷家有棵苹果树，树上高低不一的长了n个红苹果。一天，m个。

小朋友到爷爷家做客，爷爷说：你们每人最多可以摘两个红苹果，而且只许伸手摘，不允许借助其它工具，摘下的苹果大家分享。由于小朋友的身高参差不齐，怎样才能使他们摘的苹果总数最多呢？

请你计算小朋友们最多能摘到多少个苹果？

输入(第1行，两个用空格隔开的整数n和m(n<=100,m<=20);第2行，n个用空格隔开的整数，分别表示每个苹果的高度；

第3行，m个用空格隔开的整数，分别表示每个小朋友伸手能达到的高度(到达苹果即可摘到)。

输出一行，一个整数，小朋友们最多能摘到的苹果数。样例：输入104

110 100 150 90 100 135 160 88 130 140120 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,''assign(output,''reset(input);rewrite(output);read(input,n,m);for i:=1 to n doread(input,a[i]);for i:=1 to m doread(input,b[i]);for i:

=1 to m-1 dofor j:=i+1 to m doif b[i]>b[j] then beginc:=b[i];b[i]:

=b[j];b[j]:=c;end;for i:=1 to m dobeginc:

=0;for j:=1 to n do

if (b[i]>=a[j]) and (c<2) then beginc:=c+1;

a[j]:=10000;d:=d+1;end;end;

write(output,d);close(input);close(output);end.

第4题找字符(程序文件名分)

有一天，小明编一个程序，能很快找出一个字符串**现次数最多的字符，你能做到吗？

输入一个由26个大写字母组成的字符串(长度不超过50)

输出按字符在字符串**现的先后顺序，显示出现次数最多的字符。

样例：输入：acabbccddba输出：cb参***：

program a4;var

input,output:text;

a:array['a'..z'] of integer;t,i:integer;k,j,l:char;b,st:string;begin

assign(input,''assign(output,''reset(input);rewrite(output);writeln(output);readln(input,st);

for i:=1 to length(st) dofor j:='a' to 'z' do

if st[i]=j then a[j]:=a[j]+1;t:=a['a'];

for j:='a' to 'z' doif tif pos(st[i],b)=0 then b:=b+st[i];for i:=1 to length(b) do

for j:='a' to 'z' do

if (b[i]=j) and (a[j]=t) then begin write(output,j);end;close(input);close(output);end.

第5题酗酒的狱警(程序文件名分)

某监狱里有个很长的走廊，走廊中一个接一个有n个房间。每个房间中锁着一个犯人。一天夜里，狱警决定玩一个无聊游戏。

第1轮中，他喝了一口威士忌，然后打开每个房间。第2轮，他喝了一口威士忌，然后按照2的倍数遍历每个房间。第3轮，他又喝了一口威士忌，遍历所有3倍数的房间，依此类推。

在遍历中，如果房间是锁着的，则打开；否则锁上。他这样重复n轮，最终醉酒。这时有些囚犯看到自己房间的锁被打开了，他们立即逃跑。

对于有n个房间的走廊，最终会有多少囚犯逃脱？

输入一行，一个整数，走廊中房间的个数n。输出一行，一个整数，最终逃走的囚犯人数。样例：输入：5输出：2参***：

program a5;var

a:array[1..100] of integer;i,j,s,n:integer;begin

assign(input,''assign(output,''reset(input);rewrite(output);

readln(input,n);for i:=1 to n doa[i]:=0;

for i:=1 to n dofor j:=1 to n do

if j mod i=0 then a[j]:=1-a[j];s:=0;

for i:=1 to n doif a[i]<>0 then s:=s+1;

writeln(output,'zouchu',s,'ren');close(input);close(output);end.

ftp上传使用说明：

第二步：点击鼠标右键，选择登陆输入准考证上的用户名、密码进行登陆。

第三步：登陆后，将本人编写的程序拖放(复制粘贴)到浏览器窗口，拖放过程中会出现传送进度条，进度条结束即上传完毕。(一旦发现问题及时咨询监考老师)。

第四步：确认自己上传成功后，安静离开考场。

2023年青岛市程序设计竞赛试题

2023年青岛市一模作文分析

2023年青岛市中考二模试题英语

2023年青岛市中考考试说明

其他用户还读了

2023年青岛市程序设计竞赛试题

2023年青岛市一模作文分析

2023年青岛市中考二模试题 英语

2023年青岛市中考考试说明

其他用户还读了

2023年青岛市中考二模试题英语