资源描述：
《2008年东莞市小学生程序设计竞赛镇区选拨赛上机试题(下发)》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。
1、2008年东莞市小学生程序设计竞赛镇区选拔赛上机试题2008年东莞市小学生程序设计竞赛镇区选拔赛上机试题 （考试时间：2008年4月26日下午2：30-5：30）注意事项：1、本试题共四大题，每题100分，共400分； 2、本试题全部为上机编程题，三小时完成，以测试数据测试程序的形式进行测评；3、严格按题目要求进行数据输入和结果的输出，否则将严重影响得分。4、要求提交pascal源文件和编译后的EXE文件，以EXE文件进行测试。一、素数个数（geshu.pas/geshu.exe）问题描述“六一”
2、儿童节到了，五年级2的张老师组织了数素数游戏，游戏规则是这样的：张老师任意给出一个正整数M，参加游戏者说出1至M之间（包括1和M）素数的个数，谁最先说出正确的答案将会得到一个奖品。现在请你编写一个程序对给出的M，输出正确的答案。数据输入从文件geshu.in中读入数据，文件中只有一个正整数M（M为小于30000的正整数）数据输出结果输出到文件geshu.out中，只有一个数，就是1到M之间的素数的个数。输入输出样例Geshu.in20Geshu.out8//说明：1到20之间共有8个素数：2，3，5，7，
3、11，13，17，19programgeshu;vara:array[1..30000]ofinteger;t,i,j,n:longint;fin,fout:text;beginassign(fin,'geshu.in');assign(fout,'geshu.out');reset(fin);rewrite(fout);readln(fin,n);fillchar(a,sizeof(a),0);a[2]:=2;i:=3;repeata[i]:=i;maintenancemeasures,thereisa
4、bigsecurityrisk,managementhashadagreatimpacttothecity.3.1-8busterminalstationstatusinYibincitylayouts(4)hoursofoperationmostofYibincitybuslinesin5:30-6:20,andbasicallymeettheYibintravelneeds.Bus-5-2008年东莞市小学生程序设计竞赛镇区选拔赛上机试题i:=i+2;untili>n;i:=3;repeatifa[i
5、]>0thenbeginj:=i+i;repeata[j]:=0;j:=j+i;untilj>n;end;i:=i+2;untili>n;t:=0;fori:=2tondoifa[i]>0thenbegint:=t+1;end;writeln(fout,t);close(fin);close(fout);end.二、产品编号(chanpin.pas/chanpin.exe)问题描述某工厂一车间有M件产品，某中一件产品不合格，现在要找出来。只知道它的位置可以这样寻求：产品编号为1—M，从1开始数1，2，3，
6、…，将数到K的产品拿出来，然后继续数数1，2，3，…，数到K又将其取出，这样不断继续下去，数完后返回开头接着数，最后剩下的，就是所要找的不合格产品（凡被拿出来的产品，其位置，下次数时就跳过不再数）。请编写程序，找出不合格产品的编号。数据输入从文件chanpin.in中读入数据，文件中只有一行，为两个正整数M和K的值（M和K是小于10000的正整数）。数据输出结果输出到文件chanpin.out中，只有一个数，就是不合格产品的编号。输入输出样例Chanpin.in83Chanpin.out4programc
7、hanpin;vara,b:array[1..20000]ofinteger;s,i,j,t:integer;maintenancemeasures,thereisabigsecurityrisk,managementhashadagreatimpacttothecity.3.1-8busterminalstationstatusinYibincitylayouts(4)hoursofoperationmostofYibincitybuslinesin5:30-6:20,andbasicallymeett
8、heYibintravelneeds.Bus-5-2008年东莞市小学生程序设计竞赛镇区选拔赛上机试题n,m:integer;fin,fout:text;beginassign(fin,'chanpin.in');assign(fout,'chanpin.out');reset(fin);rewrite(fout);readln(fin,n,m);fori:=1tondoa[i]:=1;s:=0;j:=1;t:=0;repea
