UC知道几道简单的PASCAL题,麻烦帮忙一下,拜托了,急用
来源：百度知道 编辑：UC知道 时间：2024/09/20 23:28:47
第一题：K尾相等数：
题目描述：
从键盘输入一个自然数K（K>1）,若存在自然数M和N（M>N）,使得K^M和K^N均大于或等于1000，且它们的末尾三位数相等，则称M和N是一对“K尾相等数”。请编写一程序，输出M+N值最小的K尾相等数。
第二题： 3n+1数链问题
题目描述：
在计算机科学上，有很多类问题是无法解决的，我们称之为不可解决问题，然而，在很多情况下我们并不知道哪一类问题可以解决，哪一类问题不可解决。现在我们就有这样一个问题，问题如下：
1.输出一个正整数n
2.把n显示出来
3.如果n=1则结束
4.如果n是奇数则n变为3*n+1,否则n变为n / 2
5.转入第 2 步。
例如对于输入的正整数22，应该有如下数列被显示出来：
22 11 34 17 52 26 13 40 20 10 5 16 8 4 2 1
第三题：明明的随机数
【问题描述】
明明想在学校中请一些同学一起做一项问卷调查，为了实验的客观性，他先用计算机生成了N个1到1000之间的随机整数（N≤100），对于其中重复的数字，只保留一个，把其余相同的数去掉，不同的数对应着不同的学生的学号。然后再把这些数从小到大排序，按照排好的顺序去找同学做调查。请你协助明明完成“去重”与“排序”的工作。
第四题：陶陶摘苹果
【问题描述】
陶陶家的院子里有一棵苹果树，每到秋天树上就会结出10个苹果。苹果成熟的时候，陶陶就会跑去摘苹果。陶陶有个30厘米高的板凳，当她不能直接用手摘到苹果的时候，就会踩到板凳上再试试。
现在已知10个苹果到地面的高度，以及陶陶把手伸直的时候能够达到的最大高度，请帮陶陶算一下她能够摘到的苹果的数目。假设她碰到苹果，苹果就会掉下来。
{直接加30后比较统计}
第五题 不高兴的津津
【问题描述】
津津上初中了。妈妈认为津津应该更加用功学习，所以津津除了上学之外，还要参加妈妈为她报名的各科复习班。另外每周妈妈还会送她去学习朗诵、舞蹈和钢琴。但是津津如果一天上课超
题目描述：
从键盘输入一个自然数K（K>1）,若存在自然数M和N（M>N）,使得K^M和K^N均大于或等于1000，且它们的末尾三位数相等，则称M和N是一对“K尾相等数”。请编写一程序，输出M+N值最小的K尾相等数。
第二题： 3n+1数链问题
题目描述：
在计算机科学上，有很多类问题是无法解决的，我们称之为不可解决问题，然而，在很多情况下我们并不知道哪一类问题可以解决，哪一类问题不可解决。现在我们就有这样一个问题，问题如下：
1.输出一个正整数n
2.把n显示出来
3.如果n=1则结束
4.如果n是奇数则n变为3*n+1,否则n变为n / 2
5.转入第 2 步。
例如对于输入的正整数22，应该有如下数列被显示出来：
22 11 34 17 52 26 13 40 20 10 5 16 8 4 2 1
第三题：明明的随机数
【问题描述】
明明想在学校中请一些同学一起做一项问卷调查，为了实验的客观性，他先用计算机生成了N个1到1000之间的随机整数（N≤100），对于其中重复的数字，只保留一个，把其余相同的数去掉，不同的数对应着不同的学生的学号。然后再把这些数从小到大排序，按照排好的顺序去找同学做调查。请你协助明明完成“去重”与“排序”的工作。
第四题：陶陶摘苹果
【问题描述】
陶陶家的院子里有一棵苹果树，每到秋天树上就会结出10个苹果。苹果成熟的时候，陶陶就会跑去摘苹果。陶陶有个30厘米高的板凳，当她不能直接用手摘到苹果的时候，就会踩到板凳上再试试。
现在已知10个苹果到地面的高度，以及陶陶把手伸直的时候能够达到的最大高度，请帮陶陶算一下她能够摘到的苹果的数目。假设她碰到苹果，苹果就会掉下来。
{直接加30后比较统计}
第五题 不高兴的津津
【问题描述】
津津上初中了。妈妈认为津津应该更加用功学习，所以津津除了上学之外，还要参加妈妈为她报名的各科复习班。另外每周妈妈还会送她去学习朗诵、舞蹈和钢琴。但是津津如果一天上课超
3.
var a:array[1..1000] of 0..1;
b:array[1..1000] of integer;
k,n,i:integer;
begin
readln(n);
for i:=1 to n do begin read(b[i]);a[b[i]]:=1;end;
for i:=1 to 1000 do k:=k+a[i];
writeln(k);
for i:=1 to 1000 do if (a[i]=1) then write(i,' ');
end.
4.
var a:array[1..10] of 0..300;
n:99..121;
i,z:integer;
begin
z:=0;
for i:=1 to 10 do read(a[i]);
readln(n);
for i:=1 to 10 do
if (n+30>=a[i]) then inc(z);
writeln(z);
end.
5.
var a:array[1..7,1..2] of 0..10;
i,j,max,x:integer;
begin
max:=0;x:=0;
for i:=1 to 7 do
begin
for j:=1 to 2 do
read(a[i,j]);
if (a[i,1]+a[i,2]>max) then begin max:=a[i,1]+a[i,2];x:=i;end;
end;
writeln(x);
end.
这是奥赛的初赛题!!!!!
3.
var a:array[1..1000] of 0..1;
b:array[1..1000] of integer;
k,n,i:integer;
begin
readln(n);
for