2012年青岛市程序设计竞赛试题.docVIP

???????????????????2012年青岛市程序设计竞赛试题(小学组) 说明：1、必须以题目中规定的文件名进行保存，并用FTP上传到指定文件夹中，FTP上传在试题最后。请选手没做完一道题及时上传一次，以确保因机器故障引起的文件丢失。 ?????2、比赛时间为：60分钟，试题100分。 ?????3、使用竞赛规定的文件格式输入、输出。 第一题?火柴盒(程序文件名a1.pas,25分) 小林今年刚上一年级，最近开始学数学的加法。老师给他出了这样一道题：火柴盒长为L，宽为W(1=L,W=100)。高度有一层楼这么高，火柴只能按长或宽的方式放进去，给小林了N(1=N=50)根火柴，知道一根火柴的长度，问有多少跟火柴可以放进该火柴盒。你能用计算器帮小林解决这个问题吗？ 输入(a1.in)： 第一行，三整数N,L和W用空格隔开； 接下来N行每行输入一个1到1000范围内的一个整数，表示火柴的长度。 输出(a1.out)：一行整数，能够装进火柴盒的火柴数量。 样例1： 输入：5 3 4 ??????8 ??????4 ??????2 ??????1 ??????9 输出：3 ? ? 第二题?数据统计(程序文件名a2.pas，25分) 小林最近想研究末尾有0的整数的性质。小林给出任一整数N，请你帮小林算出这个整数末尾共有多少个连续的0？ 输入(a2.in)：一行，一个整数N(1=N=1000000000)。 输出(a2.out)：一行统计出N的末尾连续0?的个数。 样例1： 输入：50100 输出：2 样例2： 输入：102304 输出：0 第3题?购文具(程序文件名a3.pas，25分) “六一”儿童节“文具套装”优惠销售，三种购买方式如下： 1、现购：10元/套，超过2套以为的，9元/套，超过10套以外的，则7.5元/套； 2、网购：9元/套，超过10套，全部按网购每套的价钱打8折；超过5套， 则全部按网购每套的价钱六折； 3、团购：10元起团购，6元/套，达到或超过50套，则5元/套，达到或超过100套，则4元/套。 小林想用其中一种方式购n套文具，请你帮他计算应付多少元钱？ 输入(a3.in)：一行，两个用空格隔开的整数，分别表示购买方式号(1，2，3)和套数n(n=200) 输出(a3.out)：一行，一个整数，应付饭钱(小数部分四舍五入)。 样例： 输入：1 11 输出：100 ? ? 第四题?分发糖果(程序文件名a4.pas，25分) 一些学生围绕教师坐着，每人手里都有偶数个糖果。现在老师吹一声哨子，所有学生同时将自己的一半糖果给他右面的同学，如果某个同学的手里的糖果个数是奇数，则老师给他一个糖果。重复这个过程直到多有同学手中的糖果数一致，并给出结束后没人手里的糖果数。 输入(a4.in)： 第一行，一个整数n，表示学生人数(n=100)； 接下来的n行，每行一个偶数(不超过100)，表示每个学生手里的糖果(按逆时针次序)。 输出(a4.out)：一行，两个空格隔开的整数，即老师吹哨子的次数和学生最后平均的糖果数。 样例： 输入：6 ??????36 ??????2 ??????2 ??????2 ??????2 ??????2 输出：15 14 ?????????????????????ftp上传使用说明 第一步：打开IE浏览器，在地址栏内输入ftp地址(由监考老师)，出现登录窗口。 第二步：用户名为参赛选手本人的考试号，输入密码。 第三步：登录后，将本人编写的程序拖放(复制粘贴)到浏览器窗口。拖放过程中会出现传送进度条，进度条结束即上传完毕(一旦发现问题请及时资讯监考老师)。 参考答案： 1.?program??a1; var n,l,w:integer; x,count:integer; i:integer; f1,f2:text; begin assign(f1,a1.in); assign(f2,a1.out); reset(f1); rewrite(f2); ??readln(f1,n,l,w); ??if lw then l:=w; ??for i:=1 to n do ??begin readln(f1,x); if x=l then count:=count+1; ??end; ??writeln(f2,count); ??close(f1); ??close(f2); end. 2.?var a,b,c,d:longint; f1,f2:text; begin assign(f1,a2.in); assign(f2,a2.out); reset(f1); rewrite(f2); read(f1,a); repeat if a mod 10=0 then begin a:=a div 10; d: