2012年青岛市程序设计竞赛试题(小学组)
说明：1、必须以题目中规定的文件名进行保存，并用ftp上传到指定文件夹中，ftp上传在试题最后。请选手没做完一道题及时上传一次，以确保因机器故障引起的文件丢失。
2、比赛时间为：60分钟，试题100分。
3、使用竞赛规定的文件格式输入、输出。
第一题火柴盒(程序文件名分)
小林今年刚上一年级，最近开始学数学的加法。老师给他出了这样一道题：火柴盒长为l，宽为w(1<=l,w<=100)。
高度有一层楼这么高，火柴只能按长或宽的方式放进去，给小林了n(1<=n<=50)根火柴，知道一根火柴的长度，问有多少跟火柴可以放进该火柴盒。你能用计算器帮小林解决这个问题吗？
输入(第一行，三整数n,l和w用空格隔开；
接下来n行每行输入一个1到1000范围内的一个整数，表示火柴的长度。
输出(一行整数，能够装进火柴盒的火柴数量。
样例1：输入：5 3 4
输出：3var
n,l,w:integer;
x,count:integer;
i:integer;
f1,f2:text;
beginassign(f1,''
assign(f2,''
reset(f1);
rewrite(f2);
readln(f1,n,l,w);
if lfor i:=1 to n do
beginreadln(f1,x);
if x<=l then count:=count+1;
end;writeln(f2,count);
close(f1);
close(f2);
end.第二题数据统计(程序文件名分)
小林最近想研究末尾有0的整数的性质。小林给出任一整数n，请你帮小林算出这个整数末尾共有多少个连续的0？
输入(一行，一个整数n(1<=n<=1000000000)。
输出(一行统计出n的末尾连续0的个数。
样例1：输入：50100
输出：2样例2：
输入：102304
输出：0a,b,c,d:longint;
f1,f2:text;
beginassign(f1,''
assign(f2,''
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题购文具(程序文件名分)
六一”儿童节“文具套装”优惠销售，三种购买方式如下：
1、现购：10元/套，超过2套以为的，9元/套，超过10套以外的，则7.5元/套；
2、网购：9元/套，超过10套，全部按网购每套的价钱打8折；超过5套，则全部按网购每套的价钱六折；
3、**：10元起**，6元/套，达到或超过50套，则5元/套，达到或超过100套，则4元/套。
小林想用其中一种方式购n套文具，请你帮他计算应付多少元钱？
输入(一行，两个用空格隔开的整数，分别表示购买方式号(1，2，3)和套数n(n<=200)
输出(一行，一个整数，应付饭钱(小数部分四舍五入)。
样例：输入：1 11
输出：100
dd;var a,b:longint;
c:real;
f1,f2:text;
beginassign(f1,''
assign(f2,''
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.第四题分发糖果(程序文件名分)
一些学生围绕教师坐着，每人手里都有偶数个糖果。现在老师吹一声哨子，所有学生同时将自己的一半糖果给他右面的同学，如果某个同学的手里的糖果个数是奇数，则老师给他一个糖果。重复这个过程直到多有同学手中的糖果数一致，并给出结束后没人手里的糖果数。
输入(第一行，一个整数n，表示学生人数(n<=100)；
接下来的n行，每行一个偶数(不超过100)，表示每个学生手里的糖果(按逆时针次序)。
输出(一行，两个空格隔开的整数，即老师吹哨子的次数和学生最后平均的糖果数。
样例：输入：6
输出：15 14
a4;var
a:array[1..100] of longint;
n,x:integer;
i:integer;
cnt:integer;
b:boolean;
f1,f2:text;
beginassign(f1,''
assign(f2,''
reset(f1);
rewrite(f2);
readln(f1,n);
for i:=1 to n do readln(f1,a[i]);
b:=false;
while not b do
begincnt:=cnt+1;
if a[n] mod 2=0 then
begina[n]:=a[n] div 2;
x:=a[n];
endelse
begina[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 =0then
begina[i]:=a[i] div 2;
a[i+1]:=a[i+1]+a[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.ftp上传使用说明。
第二步：用户名为参赛选手本人的考试号，输入密码。
第三步：登录后，将本人编写的程序拖放(复制粘贴)到浏览器窗口。拖放过程中会出现传送进度条，进度条结束即上传完毕(一旦发现问题请及时资讯监考老师)。
2024年青岛市程序设计竞赛试题
2012年青岛市程序设计竞赛试题 小学组 说明 1 必须以题目中规定的文件名进行保存，并用ftp上传到指定文件夹中，ftp上传在试题最后。请选手没做完一道题及时上传一次，以确保因机器故障引起的文件丢失。2 比赛时间为 60分钟，试题100分。3 使用竞赛规定的文件格式输入 输出。第一题火柴盒 程序文...
2019程序设计竞赛开幕词
2012校园程序设计竞赛开幕词。各位领导 老师们 同学们大家中午好！一年一度的校园程序设计竞赛开幕了，在此我代表软件学院全体师生预祝竞赛圆满成功，也预祝参赛的同学们取得优异成绩。校园程序设计竞赛是承接acm国际大学生程序设计竞赛的，该竞赛的宗旨是展示大学生创新能力 团队精神和在压力下编写程序 分析和...
2024年青岛市会计从业资格考试基础模拟
2012年青岛市会计从业资格考试全真模拟题。一 选择题单项 在每小题给出的四个备选答案中，只有一个正确答案，请将所选的答案的字母填在题后的括号内。每小题1分，共20分 1.下列等式中，的理论基础，也是企业编制资产负债表的依据。a.所以账户借方余额合计 所有账户贷方余额合计。b.资产 负债 所有者权益...