2010江苏省“信息与未来”小学生夏令营常州市选拔赛.doc

江苏省“信息与未来”小学生夏令营选拔试卷
在D盘根目录下建一个以自己的中文名字命名的文件夹如丁宁,考试结束前将你编的程序(扩展名为pas)放到该文件夹中等待监考老师上传到教师机。
友情提醒:整数类型一律用longint,字符串类型一律用string,输出一行一定要用writeln,程序名即为题目的英文名,所有样例都在D盘上。
所有题目均使用文件输入和文件输出,你的程序请按样题格式编写
判断质数(prime)本题为样题不用做,请认真阅读
质数也叫素数,是指除了1和本身之外没有其他约数的数,如7和11都是质数,而6不是质数,因为6除了约数1和6之外还有约数2和3。输入一个正整数,判断它是否为质数,如果是质数则输出“Yes”,否则输出这个数的大于1的最小的约数。
输入格式:
输入文件仅有一行包含一个正整数n,其中1<n<1000000
输入样例:()
2009
输出格式:
输出文件仅有一行,如果从输入文件读入的数是质数则输出“Yes”,否则输出这个数的大于1的最小的约数。
输出样例:()
7
输入样例2:()
97
输出样例2:()
Yes
以下是程序清单,
var i,n:longint;
begin
assign(input,'');
reset(input);
assign(output,'');
rewrite(output);
read(n);
i:=2;
while (i*i<=n) and (n mod i<>0) do i:=i+1;
if i*i>n then writeln('Yes') else writeln(i);
close(input);
close(output)
end.
第一题:小高考(apt)
懒羊羊在前一阵准备羊村的小高考复习时表现出了罕见的勤奋,现在他得知了小高考四门必修课的成绩,他想知道根据羊村的高考政策,他在羊村高考中能加几分。
羊村高考政策如下:
分数段
等级
成绩>=90
A
90>成绩>=75
B
75>成绩>=60
C
成绩<60
D
每得一个A,可在羊村高考中加1分,若得4A,则可以加5分。当然,只要有一门功课得D,那么就将失去羊村高考资格。
输入格式:
输入文件仅有一行,4个不大于100的非负整数,相邻两数之间用空格隔开。
输出格式:
输出文件仅有一行,若有D级存在,则输出“Poor LanYangYang”(引号不输出,注意大小写);否则输出懒羊羊在羊村高考中的加分。
输入样例1:()
100 95 89 94
输出样例1:()
3
输入样例2:()
0 0 0 0
输出样例2:()
Poor LanYangYang
第二题:级数求和(sum)
已知:Sn= 1+1/2+1/3+…+1/n,如S2= 1+1/2=。显然对于任意一个整数K,当n足够大的时候,Sn大于K。
现给出一个整数K(1<=k<=15),要求计算出一个最小的n;使得Sn>K。
输入格式:
输入文件仅有一行