noip普及组复赛入门训练12(答案)

PASCAL复习12

1.自然数(文件名ZRS.PAS)

【问题描述】任意给定一个自然数M(M<999999999)，如果它的所有各位数字都是由0或1组成，则输出YES,否则输出NO.例:

输入：100

输出：YES

输入：31

输出: NO

Var m,x,a:longint;

f:boolean;

Begin

readln(m);

x:=m;

f:=true;

while (x>0)and f do begin

a:=x mod 10;

if (a<>0)and(a<>1) then f:=false;

x:=x div 10;

end;

if f then writeln(‘YES’)

else writeln(‘NO’);

readln;

End.

2．字符串(文件名ZFC.PAS)

【问题描述】由键盘输入一个超过10个字符的字符串，已知其中有两个“A”，以回车键结束。请你编个程序实现一下两个功能，

1、打印出第一个“A”所在的位置

2、打印出两个“A”之间的字符以及字符个数。

输入：TEACHERSTUDENTAND

输出：3

CHERSTUDENT

11

V AR T,T1:INTEGER;

C:CHAR;

BEGIN T:=0;t1:=0;

Read(c);

Repeat

t:=t+1;

if c=‘A’then begin

writeln(t);

read(c);

repeat

write(c);

t1:=t1+1;

read(c);

until c=‘A’;

end;

read(c);

Until c=chr(13);

Writeln;

Writeln(t1);

END.

3.数位和与积(文件名HWHJ.pas)

【问题描述】试编写程序求出n个自然数的各个数位之和与之积。输入：一个自然数n(n<=5)及n个自然数

输出：各行依次输出每一个自然数n的各个数位之和与之积。例如：

输入: 3

92 23 1024

输出

11 18

5 6

7 0

var i,t,x,y,z:integer;

begin

readln(t);

for i:=1 to t do begin

read(x);

y:=0; z:=1;

while x>0 do begin

y:=y+x mod 10; z:=z*(x mod 10);

x:=x div 10;

end;

writeln(y,' ',z);

end;

readln;

readln

end.

4. 黑色星期五(文件名HSXQW.PAS)

【问题描述】

有一种计算机病毒叫黑色星期五，如果当天是13号，又恰好是星期五，就会发作起来毁坏计算机的存储系统，输入两个年份y1，y2（y1

【样例输入】

2008 2009

【样例输出】

20089 13

2008 12 13

2009 6 13

3

VAR y1,y2,dd,mm,d,yy,y,t,w:integer;

begin Readln(y1,y2);

yy:=1;mm:=1;dd:=1;

d:=1; t:=0;

For y:=y1 to y2 do

repeat

case mm of

1,3,5,7,8,10,12:w:=31;

4,6,9,11:w:=30;

2:if ((yy mod 100<>0)and(yy mod 4=0))or(yy mod 400=0)

then w:=29 else w:=28;

end;

if dd=w then begin

dd:=1;mm:=mm+1;if mm=13 then begin mm:=1; yy:=yy+1; end;end else dd:=dd+1;

d:=d+1;

if (dd=13)and(d mod 7=5)and(yy=y) then begin t:=t+1;writeln(yy,' ',mm,' ',dd);end;

until

(yy=y)and(mm=12)and(dd=31);

Writeln(t);

end.

5．慧星团体（文件名HXTT.PAS）

一个众所周知的事实，在每一慧星后面是一个不明飞行物UFO。这些不明飞行物时常来收集来自在地球上忠诚的支持者。不幸地，他们的空间在每次旅行只能带上一群支持者。他们要做的是用一种聪明的方案让每一个团体人被慧星带走。他们为每个慧星起了一个名字，通过这些名字来决定一个团体是不是特定的慧星带走。那个相配方案的细节在下面被给出；你的工作要写一个程序来通过团体的名字和彗星的名字来决定一个组是否应该与在那一颗慧星后面的不明飞行物搭配。团体的名字和慧星的名字都以下列各项方式转换成一个数字: 这个最后的数字代表名字中所有字母的信息，"A" 是1 和"Z" 是26。举例