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<y2）,试编程找出y1年--y2年中这种病毒可能发作的日期及次数。

【样例输入】
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。

举例
来说，团体"USACO" 会是21*19*1*3*15=17955 。

如果团体的数字mod 47 等于慧星的数字mod 47,那么你要告诉这个团体准备好被带走! 写一个程序读入慧星的名字和团体的名字，如果搭配打印"GO"否者打印"STAY" 团体的名字和慧星的名字将会是没有空格或标点的一串大写字母（不超过6个字母），
【样例输入】
COMETQ
HVNGAT
【样例输出】
GO
【样例输入】
COMETQ
USACO
【样例输出】
STAY
var
a,b,i,n,s,t,s1:longint;
c,c1:char;
begin
read(c);
s:=1; t:=1; s1:=1;
repeat
a:=ord(c)-64;
s:=s*a;
read(c);
until c=chr(13);
read(c);
read(c);
repeat
b:=ord(c)-64;
t:=t*b;
read(c);
until c=chr(13);
if s mod 47=t mod 47 then writeln('GO')else writeln('STAY'); readln
end.
6. 非琐碎数（文件名FFSS.PAS）
【问题描述】规定正整数的琐碎度为它的除了自身以外的所有约数的和除以它自己的值。

如10的琐碎度为0.8=（1+2+5）/10, 20的琐碎度为1.1 = (1 + 2 + 4 + 5 + 10) / 20。

给你两个数0 < I <= J < 1000000，找出满足I <= N <= J 的N,使N 是琐碎度最小的整数。

[Input]
两个数I 和J, 0 < I ≤J ≤1000000。

[Output]
输出N。

Sample
input
24 28
output
25
var i,j,k,n,s,n1:longint;
min,d:real;
begin Readln(I,j);
Min:=100000;
For n:=I to j do begin
s:=0;
for k:=1 to n div 2 do
if n mod k=0 then s:=s+k;
d:=s/n;
if d<min then begin min:=d;n1:=n;end; End;
Writeln(n1);
end.。