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

assign(f2,'a3.out'); reset(f1); rewrite(f2); readln(f1,a,b); if a=1 then if b<=2 then c:=b*10 else if b<=10 then c:=20+9*(b-2) else c:=20+72+7.5*(b-10); if a=2 then if b<=10 then c:=b*9 else if b<=50 then c:=b*9*0.8 else c:=b*9*0.6; if a=3 then if b<50 then c:=6*b else if b<100 then c:=5*b else c:=4*b; writeln(f2,round(c)); close(f1); close(f2); end. 4. program a4; var a:array[1..100] of longint; n,x:integer; i:integer; cnt:integer; b:Boolean; f1,f2:text; begin assign(f1,'a4.in'); assign(f2,'a4.out'); reset(f1); rewrite(f2); readln(f1,n); for i:=1 to n do readln(f1,a[i]); b:=false; while not b do begin cnt:=cnt+1; if a[n] mod 2=0 then begin a[n]:=a[n] div 2;
x:=a[n]; end else begin a[n]:=a[n]+1; a[n]:=a[n]div 2; x:=a[n]; end; for i:=n-1 downto 1 do if a[i] mod 2 =0 then begin a[i[i]; end else begin a[i]:=a[i]+1;a[i]:=a[i] div 2;a[i+1]:=a[i+1]+a[i];end; a[1]:=a[1]+x;b:=true; for i:=1 to n-1 do if a[i]<>a[i+1] then b:=false; end; writeln(f2,cnt-1,' ', a[1]); close(f1); close(f2); end.
3、团购：10 元起团购，6 元/套，达到或超过 50 套，则 5 元/套，达到或超 过 100 套，则 4 元/套。 小林想用其中一种方式购 n 套文具，请你帮他计算应付多少元钱？ 输入(a3.in)：一行，两个用空格隔开的整数，分别表示购买方式号(1，2，3)和 套数 n(n<=200) 输出(a3.out)：一行，一个整数，应付饭钱(小数部分四舍五入)。 样例： 输入：1 11 输出：100
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
第四题 分发糖果(程序文件名 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;
第二题 数据统计(程序文件名 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 套， 则全部按网购每套的价钱六折；
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 l<w 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:=d+1;end; until(a mod 10 <>0); writeln(f2,d); close(f1); close(f2); end. 3. program dd; var a,b:longint; c:real; f1,f2:text; begin assign(f1,'a3.in');