2016年青岛市程序设计比赛初中组 考试时间120分钟.docVIP

（考试时间120分钟） ? 一.人民币支付 【问题描述】 从键盘输入一指定金额(以元为单位，如345)，然后输出支付该金额的各种面额的人民币数量，显示100元，50元，20元，10元，5元，1元各多少张，要求尽量使用大面额的钞票。 【输入】 一个小于1000的正整数。 【输出】 输出6行，每行显示一个整数，从上到下分别表示100元，50元，20元，10元，5元，1元人民币的张数。 【样例输入输出】 Pay.in Pay.out 735 7 0 1 1 1 0 ? ? 二.区间内的真素数 【问题描述】 素数的定义：只有1和自身两个约数的正整数。 列如:2,3,5,11,13是素数：12,14,15不是素数。 真素数的定义：如果一个正整数p为素数，且其反序还是也为素数，那么p就为真素数。 例如，11，，13均为真素数，因为11的反序还是为11,13的反序为31也为素数。 找出正整数M和N之间（N不小于M）的所有的真素数。 【输入】 输入两个数M和N，空格间隔，1＜=M＜=N＜=100000。 【输出】 按从小到大输出M和N之间（包括M和N）的真素数，逗号间隔。如果之间没有真素数，则输出|“No”。 【样例输入输出】 Trueprime.in Trueprime.out 10 35 11,13,17,31 ? ? 三.苹果和虫子 【问题描述】 你买了一箱n个苹果，很不幸的是买完是箱子字里混进了一条虫子。虫子每x小时能吃掉一个苹果，假设虫子在吃苹果之前不会次另一个，那么经过y小时你还有多少个完整的苹果？ 【输入】 输入也仅一行，包括n，x和y（均为整数）。 【输出】 输出也仅一行，剩下的苹果个数。 【样例输入输出】 Qpple.in Apple.in 10 4 9 7 【说明】 注意：是要求完整的苹果个数。n，x，y不超过2^31-1。 ? ? ? 四.分数拆分 【问题描述】 给你一个数k，求所有使得1/k=1/x＋1/y成立的x≥y的整数对。0＜k≤10000。 【输入】 输入仅一行，一个正整数k。 【输出】 第一行是一个整数n，表示整数对的数量; 以后若干行，每行输出一个1/k=1/x＋1/y的划分，按y递增的 注意：‘+’和‘=’的前后各有一个空格，其他位置没有空格。 【样例1输入输出】 fenshu.in fenshu.out 2 2 1/2=1/6+1/3 1/2=1/4+1/4 【样例2输入输出】 fenshu.in fenshu.out 12 8 1/12=1/156+1/13 1/12=1/84+1/14 1/12=1/60+1/15 1/12=1/48+1/16 1/12=1/36+1/18 1/12=1/30+1/20 1/12=1/28+1/21 1/12=1/24+1/24 ? ? ? ? 【参考代码】 1、 var ? n:integer; begin readln(n); writeln(n div 100); n:=n mod 100; writeln(n div 50); n:=n mod 50; writeln(n div 20); n:=n mod 20; writeln(n div 10); n:=n mod 10; writeln(n div 5); n:=n mod 5; writeln(n); end. 2、 var ?m,n,i,j,k,t,l,p,e,f,s,g,h:integer; ?a,c:array[1..100] of integer; ? b:array[1..5]of extended; ? q:string[5]; function z(p:integer):integer; begin str(p,q); l:=length(q); g:=ord(q[1])-48; fore:=2 to l do begin ? ???h:=ord(q[e])-48; ? ???for f:=1 to (e-1) do h:=h*10; ??? ?s:=s+h; ??? ?h:=0; end; z:=(s+g); s:=0; end; ? begin readln(m,n); for i:=m to n do begin ?for j:=2 to(i-1) do ??? if (i modj)=0 then begin k:=1;break; end; ?if k=0 thenbegin t:=t+1; a[t]:=i; end; ?k:=0; e