2006年青岛市程序设计竞赛试题

2006年青岛市程序设计竞赛试题（小学组）

说明：1、必须以题目中规定的文件名进行保存，并用FTP上传到指定文件夹中。FTP上传使用说明在试题最后。请选手每做完一道题及时上传一次，以确保因机器故障引起的文件丢失。

2、比赛时间为：60分钟,试题100分。

3.使用竞赛规定的文件格式输入、输出。

第1题数字分离（程序文件名A1.PAS，20分）

从键盘输入一个三位数n（100≤n≤999）判断其个位数字、十位数字、百位数字之和是否等于15，若等于15，则输出“1”,否则输出“0”。

输入(a1.in)：一行，三位数n(100≤n≤999)

输出(a1.out)：一行，若等于15则输出1，否则输出0

样例：

输入：690

输出：1

输入：710

输出：0

第2题编程实现（程序文件名A2.PAS，20分）

找出1至n（10≤n≤1000）之间不能被2，3，5，7除尽的整数的个数。

输入(a2.in)：一行，n（10≤n≤1000）

输出(a2.out)：一个正整数，满足条件的个数

样例：

输入：13

输出：3

第3题求一个十进制数的三进制表示（程序文件名A3.PAS，20分）

从键盘读入一个十进制整数n(n≤20)，要求编程计算求出n的三进制表示。

注：将十进制数转换为三进制的方法为：除三取余，余数倒取

除数被除数余数

转换示例352

11

输入(a3.in)：一行，n（n≤20）

输出(a3.out)：一行，n的三进制表示

样例：

输入：5

输出：12

第4题级数求和（程序文件名A4.PAS，20分）

已知s n=1+1/2+1/3+……+1/n,显然对于任意一个正整数k，当n足够大的时候，s n大于k，现在给出一个正整数k（1≤k≤15）,要求计算出一个最小的n使s大于k。

输入(a4.in)：一行，k（1≤k≤15）

输出(a4.out)：一行，满足要求的n

样例：

输入：2

输出：4

第5题产生数（程序文件名A5.PAS，20分）

给出一个数n（n≤1030）和k个变换规则（k≤15）

规则：

1位数可变换成另一个1位数；规则的右部不能为零。

例如：n=234，有规则（k=2）;

2→5,3→6

上面的整数234经变换后可能产生出的整数（包括原数）；

234

534

264

564

共4种不同的产生数

问题：给出一个整数n和k个规则。

求出：经过任意次的变换（0次或多次），能产生出多少个不同的整数。仅要求输出个数。

输入(a5.in)：第一行，两个数n、k，中间用空格隔开

第二行存放两个数，中间用空格隔开，表示一个变换规则，在随后的k－1行中，每行都有2个数，中间用空格隔开，表示k条变换规则。

输出(a5.out)：一行，满足要求的数的个数

样例：

输入：2342

25

36

输出：4

ftp上传使用说明

第一步：打开IE浏览器，在地址栏内输入ftp://10.0.3.4（小学、初中组）或ftp://10.0.2.101（高中组），出现登录窗口。

第二步：用户名为参赛选手本人的考试号，无须输入密码。

第三步：登录后，将本人编写的程序拖放（复制粘贴）到浏览器窗口。拖放过程中会出现传送进度条，进度条结束即上传完毕（一旦发现问题请及时咨询监考老师）。

2011年青岛市程序设计试题

(比赛时间60分钟，试题满分100分)

说明：1、必须以题目中规定的文件名进行保存，并用ftp上传到指定文件夹中。ftp 上传使用说明在试题最后，请选手每做完一道题及时上传一次，以确保因机器故障引起的文件丢失。

2.使用竞赛规定的文件格式输入、输出。

(1)对于使用pascal语言的选手，请参照以下格式使用文件输入输出：

Begin

Assign(input,’输入文件名’)；assign(output,‘输出文件名’)；

Reset(input);rrewrite(output);

……

Close(input);close(output);

End.

(2)对于c或c++选手，如果尚未掌握文件输入输出，请参考以下我们提供的一种方法进行文件输入输出。在主函数即main()的开始部分加入以下代码：

Freopen(“输入文件名”，”r”,stdin);

Freopen(“输出文件名”，“w”，stdout);

程序结束时无须像pascal选手一样，关闭文件，系统将自动关闭读写的文件。

对于c选手，请调用头文件stdio.h

对于c++选手，请调用头文件iostream

第1题水仙花数(程序文件名a1.pas,20分)

有一些100-999之间的整数具有这样的性质，该数的各位数字的立方之和等于该数本身，这种数人们把它称为水仙花数。例如153是个水仙花数，因为13+53+33=153。编程输入一三位正整数N(100<=n<=999)，判断是否是水仙花数，如是输出整数1，不是输出整数0。

输入(A1.in)：一行，一个整数n(100<=n<=999)

输出(a1.out):一行，一个整数。若N是水仙花数则输出1，否则输出0。

样例1：

输入153

输出1

样例2：

输入：200

输出：0

参考答案：

program a1;

var a,b,c,n:integer;

input,output:text;

begin

assign(input,'a1.in');

assign(otuput,'a1.out');

reset(input);

read(input,n);

a:=n div100;

b:=n mod100div10;

c:=n mod10;

if a*a*a+b*b*b+c*c*c=n then write(output,1)

else write(output,0);

close(input);

close(output);

end.

第2题：走阶梯(程序文件名a2.pas,20分)

有一个长阶梯，如果每步跨2阶最后剩1阶，如果每步跨3阶最后剩2阶，如果每步跨4阶最后剩3阶，如果每步跨5阶最后剩4阶，如果每步跨6阶最后剩5阶，只有当每步跨7阶时恰好走完，问这个阶梯有多少阶？输出(a2.out)：一行，要求统计的结果。

参考答案：

program a2;

var i:integer;

output:text;

begin

assign(output,'a2.out');

rewrite(output);

for i:=1to1000do

if(i mod2=1)and(i mod3=2)and(i mod4=3)and(i mod5=4)and(i mod6=5)and(i mod7= 0)then write(output,i);

close(output);

end.

第3题：摘红苹果(程序文件名a3.pas，20分)

小明爷爷家有棵苹果树，树上高低不一的长了n个红苹果。一天，m个小朋友到爷爷家做客，爷爷说：你们每人最多可以摘两个红苹果，而且只许伸手摘，不允许借助其它工具，摘下的苹果大家分享。由于小朋友的身高参差不齐，怎样才能使他们摘的苹果总数最多呢？请你计算小朋友们最多能摘到多少个苹果？

输入(a3.in):第1行，两个用空格隔开的整数n和m(n<=100,m<=20);

第2行，n个用空格隔开的整数，分别表示每个苹果的高度；

第3行，m个用空格隔开的整数，分别表示每个小朋友伸手能达到的高度(到达苹果即可摘到)。输出a3.out：一行，一个整数，小朋友们最多能摘到的苹果数。

样例：

输入104

1101001509010013516088130140

12010011080

输出：5

参考答案：

program a3;

var m,n,i,j,c,d:integer;

a,b:array[1..1000]of integer;

input,output:text;

assign(input,'a3.in');

assign(output,'a3.out');

reset(input);

rewrite(output);

read(input,n,m);

for i:=1to n do

read(input,a[i]);

for i:=1to m do

read(input,b[i]);

for i:=1to m-1do

for j:=i+1to m do

if b[i]>b[j]then begin

c:=b[i];

b[i]:=b[j];

b[j]:=c;

end;

for i:=1to m do

begin

c:=0;

for j:=1to n do

if(b[i]>=a[j])and(c<2)then begin

c:=c+1;

a[j]:=10000;

d:=d+1;

end;

end;

write(output,d);

close(input);

close(output);

end.

第4题找字符(程序文件名a4.pas,20分)

有一天，小明编一个程序，能很快找出一个字符串中出现次数最多的字符，你能做到吗？输入a4.in：一个由26个大写字母组成的字符串(长度不超过50)

输出a4.out：按字符在字符串中出现的先后顺序，显示出现次数最多的字符

样例：输入：ACABBCCDDBA

输出：CB

参考答案：

program a4;

var

input,output:text;

a:array['A'..'Z']of integer;

t,i:integer;

k,j,l:char;

begin

assign(input,'a4.in');

assign(output,'a4.out');

reset(input);

rewrite(output);

writeln(output);

readln(input,st);

for i:=1to length(st)do

for j:='A'to'Z'do

if st[i]=j then a[j]:=a[j]+1;

t:=a['A'];

for j:='A'to'Z'do

if t

for i:=1to length(st)do

if pos(st[i],b)=0then b:=b+st[i];

for i:=1to length(b)do

for j:='A'to'Z'do

if(B[i]=j)and(A[j]=t)then begin write(output,j);end;

close(input);

close(output);

end.

第5题酗酒的狱警(程序文件名a5.pas,20分)

某监狱里有个很长的走廊，走廊中一个接一个有n个房间。每个房间中锁着一个犯人。一天夜里，狱警决定玩一个无聊游戏。第1轮中，他喝了一口威士忌，然后打开每个房间。第2轮，他喝了一口威士忌，然后按照2的倍数遍历每个房间。第3轮，他又喝了一口威士忌，遍历所有3倍数的房间，依此类推。在遍历中，如果房间是锁着的，则打开；否则锁上。他这样重复n轮，最终醉酒。这时有些囚犯看到自己房间的锁被打开了，他们立即逃跑。对于有n个房间的走廊，最终会有多少囚犯逃脱？

输入a5.in：一行，一个整数，走廊中房间的个数n。

输出a5.out：一行，一个整数，最终逃走的囚犯人数。

样例：输入：5输出：2

参考答案：

program a5;

var

a:array[1..100]of integer;

i,j,s,n:integer;

begin

assign(input,'a5.in');

assign(output,'a5.out');

reset(input);

rewrite(output);

readln(input,n);

for i:=1to n do

for i:=1to n do

for j:=1to n do

if j mod i=0then a[j]:=1-a[j];

s:=0;

for i:=1to n do

if a[i]<>0then s:=s+1;

writeln(output,'zouchu',s,'ren');

close(input);

close(output);

end.

ftp上传使用说明：

第一步：打开ie浏览器，在地址栏内ftp网址，考场1和考场2：ftp://192.137.1.201，出现登录窗口。

第二步：点击鼠标右键，选择登陆输入准考证上的用户名、密码进行登陆。

第三步：登陆后，将本人编写的程序拖放(复制粘贴)到浏览器窗口，拖放过程中会出现传送进度条，进度条结束即上传完毕。(一旦发现问题及时咨询监考老师)。

第四步：确认自己上传成功后，安静离开考场。

第一步：打开IE浏览器，在地址栏内输入ftp地址(由监考老师)，出现登录窗口。

第二步：用户名为参赛选手本人的考试号，输入密码。

第三步：登录后，将本人编写的程序拖放(复制粘贴)到浏览器窗口。拖放过程中会出现传送进度条，进度条结束即上传完毕(一旦发现问题请及时资讯监考老师)。

参考答案：

1.program a1;

var

n,l,w:integer;

x,count:integer;

i:integer;

f1,f2:text;

begin

assign(f1,'a1.in');

assign(f2,'a1.out');

reset(f1);

rewrite(f2);

readln(f1,n,l,w);

if l

for i:=1to n do

begin

readln(f1,x);

if x<=l then count:=count+1;

end;

writeln(f2,count);

close(f1);

close(f2);

end.

2.var a,b,c,d:longint;

f1,f2:text;

begin

assign(f1,'a2.in');

assign(f2,'a2.out');

reset(f1);

rewrite(f2);

read(f1,a);

repeat

if a mod10=0then begin

a:=a div10;

d:=d+1;end;

until(a mod10<>0);

writeln(f2,d);

close(f1);

close(f2);

3.program dd;

var a,b:longint;

c:real;

f1,f2:text;

begin

assign(f1,'a3.in');

assign(f2,'a3.out');

reset(f1);

rewrite(f2);

readln(f1,a,b);

if a=1then

if b<=2then c:=b*10

else if b<=10then c:=20+9*(b-2)

else c:=20+72+7.5*(b-10);

if a=2then

if b<=10then c:=b*9

else if b<=50then c:=b*9*0.8

else c:=b*9*0.6;

if a=3then

if b<50then c:=6*b

else if b<100then c:=5*b

else c:=4*b;

writeln(f2,round(c));

close(f1);

close(f2);

end.

4.program a4;

var

a:array[1..100]of longint;

n,x:integer;

i:integer;

cnt:integer;

b:Boolean;

f1,f2:text;

begin

assign(f1,'a4.in');

assign(f2,'a4.out');

reset(f1);

rewrite(f2);

readln(f1,n);

for i:=1to n do readln(f1,a[i]);

b:=false;

begin

cnt:=cnt+1;

if a[n]mod2=0then

begin

a[n]:=a[n]div2;

x:=a[n];

end

else

begin

a[n]:=a[n]+1;

a[n]:=a[n]div2;

x:=a[n];

end;

for i:=n-1downto1do

if a[i]mod2=0then

begin

a[i]:=a[i]div2;

a[i+1]:=a[i+1]+a[i];end else begin

a[i]:=a[i]+1;a[i]:=a[i]div2;a[i+1]:=a[i+1]+a[i];end;

a[1]:=a[1]+x;b:=true;

for i:=1to n-1do

if a[i]<>a[i+1]then b:=false;

end;

writeln(f2,cnt-1,'',a[1]);

close(f1);

close(f2);

end.

2012年青岛市程序设计竞赛试题(小学组)

说明：1、必须以题目中规定的文件名进行保存，并用FTP上传到指定文件夹中，FTP上传在试题最后。请选手没做完一道题及时上传一次，以确保因机器故障引起的文件丢失。

2、比赛时间为：60分钟，试题100分。

3、使用竞赛规定的文件格式输入、输出。

第一题火柴盒(程序文件名a1.pas,25分)

小林今年刚上一年级，最近开始学数学的加法。老师给他出了这样一道题：火柴盒长为L，宽为W(1 <=L,W<=100)。高度有一层楼这么高，火柴只能按长或宽的方式放进去，给小林了N(1<=N<=50)根火柴，知道一根火柴的长度，问有多少跟火柴可以放进该火柴盒。你能用器帮小林解决这个问题吗？

第一行，三整数N,L和W用空格隔开；

接下来N行每行输入一个1到1000范围内的一个整数，表示火柴的长度。

输出(a1.out)：一行整数，能够装进火柴盒的火柴数量。

样例1：

输入：534

8

4

2

1

9

输出：3

1.program a1;

var

n,l,w:integer;

x,count:integer;

i:integer;

f1,f2:text;

begin

assign(f1,'a1.in');

assign(f2,'a1.out');

reset(f1);

rewrite(f2);

readln(f1,n,l,w);

if l

for i:=1to n do

begin

readln(f1,x);

if x<=l then count:=count+1;

end;

writeln(f2,count);

close(f1);

close(f2);

end.

第二题数据统计(程序文件名a2.pas，25分)

小林最近想研究末尾有0的整数的性质。小林给出任一整数N，请你帮小林算出这个整数末尾共有多少个连续的0？

输入(a2.in)：一行，一个整数N(1<=N<=1000000000)。

输出(a2.out)：一行统计出N的末尾连续0的个数。

样例1：

输入：50100

输出：2

样例2：

输入：102304

输出：0

2.var a,b,c,d:longint;

begin

assign(f1,'a2.in');

assign(f2,'a2.out');

reset(f1);

rewrite(f2);

read(f1,a);

repeat

if a mod10=0then begin

a:=a div10;

d:=d+1;end;

until(a mod10<>0);

writeln(f2,d);

close(f1);

close(f2);

end.

第3题购文具(程序文件名a3.pas，25分)

“六一”儿童节“文具套装”优惠销售，三种购买方式如下：

1、现购：10元/套，超过2套以为的，9元/套，超过10套以外的，则7.5元/套；

2、网购：9元/套，超过10套，全部按网购每套的价钱打8折；超过5套，

则全部按网购每套的价钱六折；

3、团购：10元起团购，6元/套，达到或超过50套，则5元/套，达到或超过100套，则4元/套。

小林想用其中一种方式购n套文具，请你帮他计算应付多少元钱？

输入(a3.in)：一行，两个用空格隔开的整数，分别表示购买方式号(1，2，3)和套数n(n<=200)

输出(a3.out)：一行，一个整数，应付饭钱(小数部分四舍五入)。

样例：

输入：111

输出：100

3.program dd;

var a,b:longint;

c:real;

f1,f2:text;

begin

assign(f1,'a3.in');

assign(f2,'a3.out');

reset(f1);

rewrite(f2);

readln(f1,a,b);

if a=1then

if b<=2then c:=b*10

else if b<=10then c:=20+9*(b-2)

else c:=20+72+7.5*(b-10);

if a=2then

if b<=10then c:=b*9

else if b<=50then c:=b*9*0.8

if a=3then

if b<50then c:=6*b

else if b<100then c:=5*b

else c:=4*b;

writeln(f2,round(c));

close(f1);

close(f2);

end.

第四题分发糖果(程序文件名a4.pas，25分)

一些学生围绕教师坐着，每人手里都有偶数个糖果。现在老师吹一声哨子，所有学生同时将自己的一半糖果给他右面的同学，如果某个同学的手里的糖果个数是奇数，则老师给他一个糖果。重复这个过程直到多有同学手中的糖果数一致，并给出结束后没人手里的糖果数。

输入(a4.in)：

第一行，一个整数n，表示学生人数(n<=100)；

接下来的n行，每行一个偶数(不超过100)，表示每个学生手里的糖果(按逆时针次序)。

输出(a4.out)：一行，两个空格隔开的整数，即老师吹哨子的次数和学生最后平均的糖果数。

样例：

输入：6

36

2

2

2

2

2

输出：1514

ftp上传使用说明

第一步：打开IE浏览器，在地址栏内输入ftp地址(由监考老师)，出现登录窗口。

第二步：用户名为参赛选手本人的考试号，输入密码。

第三步：登录后，将本人编写的程序拖放(复制粘贴)到浏览器窗口。拖放过程中会出现传送进度条，进度条结束即上传完毕(一旦发现问题请及时资讯监考老师)。

参考答案：

4.program a4;

var

a:array[1..100]of longint;

n,x:integer;

i:integer;

cnt:integer;

b:Boolean;

f1,f2:text;

begin

assign(f1,'a4.in');

assign(f2,'a4.out');

reset(f1);

rewrite(f2);

for i:=1to n do readln(f1,a[i]);

b:=false;

while not b do

begin

cnt:=cnt+1;

if a[n]mod2=0then

begin

a[n]:=a[n]div2;

x:=a[n];

end

else

begin

a[n]:=a[n]+1;

a[n]:=a[n]div2;

x:=a[n];

end;

for i:=n-1downto1do

if a[i]mod2=0then

begin

a[i]:=a[i]div2;

a[i+1]:=a[i+1]+a[i];end else begin

a[i]:=a[i]+1;a[i]:=a[i]div2;a[i+1]:=a[i+1]+a[i];end;

a[1]:=a[1]+x;b:=true;

for i:=1to n-1do

if a[i]<>a[i+1]then b:=false;

end;

writeln(f2,cnt-1,'',a[1]);

close(f1);

close(f2);

end.

第一题:

求和问题:(程序文件名A1.PAS/A1.IN/A1.OUT)

输入一个三位正整数，然后与它到过来的数相加，输出和。输入(A1.IN)：一行，N(100<=n<=999)

输出(A1.OUT):一行，和值

样例1：

输入：125

输出：646

样例2：

输入：100

输出：101

参考程序：(本答案由高春提供)

program sws;

var a,b,c,d,e,f:integer;

f1,f2:text;

assign(f1,'a1.in');

assign(f2,'a1.out');

reset(f1);

rewrite(f2);

while(a>999)or(a<100)do

readln(f1,a);

b:=a mod10;

c:=a div10mod10;

d:=a div100;

e:=b*100+c*10+d;

writeln(f2,a+e);

close(f1);

close(f2);

end.

参考程序：(本答案由杨妮妮提供)

program a1;

var a,b,c,x,y:integer;

f1,f2:text;

begin

assign(f1,'a1.in');

assign(f2,'a1.out');

reset(f1);

rewrite(f2);

readln(f1,x);

a:=x div100;

b:=x div10mod10;

c:=x mod10;

y:=c*100+b*10+a;

writeln(f2,x+y);

close(f1);

close(f2);

end.

第二题:

换钱游戏(程序文件名A2.PAS/A2.IN/A2.OUT)

一个富翁试图与陌生人做一笔换钱生意，换钱规则为：陌生人每天给富翁10万元钱；而富翁第一天给陌生人1元钱，第二天2元，第三天4元，……富翁每天给陌生人的钱是前一天的两倍。请你编程帮他们算一算这个游戏至少做几天，富翁给陌生人的总钱数会超过陌生人给富翁的？

输出(a2.out)：一行，达到要求时最少的游戏天数。

参考程序：(本答案由高春提供)

program fuweng;

var s,a,b,d,e,f,g:real;

c:integer;

begin

assign(f2,'a2.out');

rewrite(f2);

a:=100000;b:=1;c:=1;s:=b;

while(a>s)do

begin

a:=a+100000;

b:=b*2;

s:=s+b;

c:=c+1;

end;

writeln(f2,c);

close(f2);

end.

参考程序：(本答案由杨妮妮提供)

program a2;

var

i:integer;p,s1,s2:longint;

f1:text;

begin

assign(f1,'a2.out');

rewrite(f1);

i:=1;s1:=100000;s2:=1;p:=1;

while s1>=s2do

begin

inc(i);

s1:=s1*i;

p:=p*2;

s2:=s2+p;

end;

writeln(f1,i);

close(f1);

end.

第三题:(残料问题)(程序文件名A3.PAS/A3.IN/A3.OUT)

小明到爷爷的工厂去实习，厂里有一根长度为321的钢材，爷爷要求小明将它截取成两种规格的短料，规格A、B的长度分别为17米和27米，问小明分隔成A、B各多少段后，剩余的残料R最小？

参考程序：(本答案由高春提供)

program shul;

var b,c,d,e,i,j,s,r:integer;

f2:text;

begin

assign(f2,'a3.out');

r:=321;

for i:=1to321div17do

for j:=1to321div27do

begin

s:=i*17+j*27;

b:=321-s;

if(b=0)then begin c:=i;d:=j;e:=b;end;

end;

writeln(f2,'A xu yao',c,'ge');

writeln(f2,'B xu yao',d,'ge');

writeln(f2,'R sheng yu',e);

close(f2);

end.

输出(a3.out)：三行，每行一个数据。分别为A的段数，B的段数及残料R的长度。

参考程序：(本答案由杨妮妮提供)

program a3;

var i,j,s,p,x:integer;

a,b,r:array[1..500]of integer;

f1:text;

begin

assign(f1,'a3.out');

rewrite(f1);

for i:=1to321div17do

for j:=1to321div27do

begin

x:=321-i*17-j*27;

if x>=0then begin s:=s+1;a[s]:=i;b[s]:=j;r[s]:=x end;

end;

for i:=1to s-1do

for j:=i+1to s do

if r[i]>r[j]then

begin

p:=a[i];a[i]:=a[j];a[j]:=p;

p:=b[i];b[i]:=b[j];b[j]:=p;

p:=r[i];r[i]:=r[j];r[j]:=p;

end;

writeln(f1,'a=',a[1],'b=':10,b[1],'r=':10,r[1]);

close(f1);

end.

第四题:

拐角方阵(程序文件名A4.PAS/A4.IN/A4.OUT)

小林最近迷上了一种拐角方阵，他觉得非常好玩。这个图形是由N行，N列的整数组成的方阵，比如当N为5时，这个拐角方阵是如下的一个图形：

11111

33321

44321

54321

希望你能帮小林编写一个程序，当输入一个N(1<=n<=15)时，你的程序能生成一个n*n的拐角矩阵。

输入(a4.in):一行，n(1<=n<=15)

输出(a4.out):n*n的拐角矩阵，每个数据占3列位置，不足3列的左边补空格。(如当N=5时，第一列的前面先输出了两个空格，然后是一个一位数据)。

参考程序：(本答案由高春提供)

program fzh;

var b,c,d,e,f,g,i,j,n:integer;

a:array[1..15,1..15]of integer;

f1,f2:text;

begin

assign(f1,'a4.in');

assign(f2,'a4.out');

reset(f1);

rewrite(f2);

while(n<1)or(n>15)do

readln(f1,n);

for i:=1to n do

for j:=1to n+1-i do

a[i,j]:=i;

for i:=n downto1do

for j:=n+1-i to n do

a[j,i]:=n+1-i;

for i:=1to n do

begin

writeln(f2);

for j:=1to n do

write(f2,a[i,j]:3);

end;

close(f1);

close(f2);

end.

参考程序：(本答案由杨妮妮提供)

program a4;

var n,i,j,k:integer;

a:array[1..100,1..100]of integer;

f1,f2:text;

begin

assign(f1,'a4.in');

assign(f2,'a4.out');

reset(f1);

readln(f1,n);

for i:=1to n do

for j:=i to n do

for k:=1to n+1-i do

a[j,k]:=i;

for i:=1to n do

begin

for j:=1to n do

write(f2,a[i,j]:4);

writeln(f2);

end;

close(f1);

close(f2);

end.

第五题:狼追兔子((程序文件名A5.PAS/A5.IN/A5.OUT)

兔子躲进了10个环形分布的洞的某一个中。狼追兔子，从第1个洞开始。狼在第1个洞中没有找到兔子，就间隔1个洞，到第3个洞中去找，也没找到兔子，就间隔2个洞，到第6个洞中去找，以后狼每次多隔1个洞去找兔子，……这样狼一直找不到兔子，请问兔子可能躲在哪个洞中？

输出a5.out:兔子所有可能躲的洞号。每个洞号占一行。

参考程序：(本答案由高春提供)

program hltz;

var b,c,d,e,f,g,i,j,k:integer;

a:array[1..10]of integer;

f2:text;

begin

assign(f2,'a5.out');

rewrite(f2);

for i:=1to10do

a[i]:=0;

b:=1;k:=1;a[1]:=1;f:=1;

repeat

b:=b+k+1;

if b>10then b:=b mod10;

a[b]:=1;

k:=k+1;f:=f+1;

until f=32767;

for i:=1to10do

if a[i]=0then writeln(f2,i);

close(f2);

end.

参考程序：(本答案由杨妮妮提供)

program a4;