UC知道几道pascal题目！急急急！！今天就要，能有多少是多少
来源：百度知道 编辑：UC知道 时间：2024/09/21 19:04:46
1、 吉祥数
(ghillie.pas/c/cpp)
[问题描述]
为了迎接圣诞，信息学兴趣小组的同学在辅导老师的带领下，举办了一个盛大的晚会，晚会的第一项内容是做游戏：猜数。老师给每位同学发一张卡片，每张卡片上都有一个编号(此编号为非负数，且小于255)，每个编号互不相同。老师制定了以下的游戏规则：第一轮，每位同学将自己卡片上编号的各位数字进行平方后再相加得到一组新数，编号在这组新数中出现的同学淘汰出局，第二轮，余下的同学再将编号的各位数字进行立方相加得到一组新数，编号在这组新数中出现的同学再淘汰出局，第三轮，余下的同学再将编号的各位数字进行4次方相加得到一组新数，编号在这组新数中出现的同学再淘汰出局，……，以此类推，经过n轮后，仍留下来的同学，将获得圣诞特别礼物，卡片上的数即为2007年吉祥数。(假定班级人数不超过200人)
[输入文件]
输入文件ghillie .in 有两行，第1行为1个正整数n(n<8)，表示有n轮游戏,第二行是卡片上互不相同的编号。
输出：剩下来的各个吉祥数，按从小到大顺序输出，每两个数之间有一个空格。
[输出文件]
输出文件ghillie .out是1行，为剩下来的各个吉祥数，按从小到大顺序输出，每两个数之间有一个空格。
[输入样例]
1
24 123 2 12 20 14 4 6 36 72
[输出样例]
2 6 12 24 72 123
2.(备用)、暴力摩托
（car.pas/c/cpp）
[问题描述]
晚会上大家在玩一款“暴力摩托”的游戏，它拥有非常逼真的画面和音响效果，如疾驰而过的汽车呼啸声，摩托车的引擎声和转弯时轮胎与地面摩擦而产生的声音。而且它在游戏中加入了对抗成份，比赛中你可以使用拳、脚去干扰对方，使其落后于你，是不是很卑鄙啊? 游戏中千万不能手下留情，因为对手会主动攻击你。如果遇到开摩托车的警察，虽然也可以对他踢上一脚，但可得小心点呀，万一被他们捉住了，那就 GAME OVER 啦!
当然了，车子总是要加油的咯，已知赛道长S公里（S≤10000整数，且为10的倍数），赛车的油耗Q=1，即1公里路耗1个单位的油。Q不
(ghillie.pas/c/cpp)
[问题描述]
为了迎接圣诞，信息学兴趣小组的同学在辅导老师的带领下，举办了一个盛大的晚会，晚会的第一项内容是做游戏：猜数。老师给每位同学发一张卡片，每张卡片上都有一个编号(此编号为非负数，且小于255)，每个编号互不相同。老师制定了以下的游戏规则：第一轮，每位同学将自己卡片上编号的各位数字进行平方后再相加得到一组新数，编号在这组新数中出现的同学淘汰出局，第二轮，余下的同学再将编号的各位数字进行立方相加得到一组新数，编号在这组新数中出现的同学再淘汰出局，第三轮，余下的同学再将编号的各位数字进行4次方相加得到一组新数，编号在这组新数中出现的同学再淘汰出局，……，以此类推，经过n轮后，仍留下来的同学，将获得圣诞特别礼物，卡片上的数即为2007年吉祥数。(假定班级人数不超过200人)
[输入文件]
输入文件ghillie .in 有两行，第1行为1个正整数n(n<8)，表示有n轮游戏,第二行是卡片上互不相同的编号。
输出：剩下来的各个吉祥数，按从小到大顺序输出，每两个数之间有一个空格。
[输出文件]
输出文件ghillie .out是1行，为剩下来的各个吉祥数，按从小到大顺序输出，每两个数之间有一个空格。
[输入样例]
1
24 123 2 12 20 14 4 6 36 72
[输出样例]
2 6 12 24 72 123
2.(备用)、暴力摩托
（car.pas/c/cpp）
[问题描述]
晚会上大家在玩一款“暴力摩托”的游戏，它拥有非常逼真的画面和音响效果，如疾驰而过的汽车呼啸声，摩托车的引擎声和转弯时轮胎与地面摩擦而产生的声音。而且它在游戏中加入了对抗成份，比赛中你可以使用拳、脚去干扰对方，使其落后于你，是不是很卑鄙啊? 游戏中千万不能手下留情，因为对手会主动攻击你。如果遇到开摩托车的警察，虽然也可以对他踢上一脚，但可得小心点呀，万一被他们捉住了，那就 GAME OVER 啦!
当然了，车子总是要加油的咯，已知赛道长S公里（S≤10000整数，且为10的倍数），赛车的油耗Q=1，即1公里路耗1个单位的油。Q不
1.
Var i,j,k,n,len,num,p,temp:longint;
a:array[1..200] of integer;
b:array[1..200] of qword;
s:string;
function pow(a,times:integer):longint;
var i:integer;
temp:longint;
begin
temp:=a;
for i:=2 to times do
begin
temp:=temp*a;
end;
exit(temp);
end;
begin
assign(input,'ghillie.in');reset(input);
assign(output,'ghillie.out');rewrite(output);
readln(n);
len:=0;
while not eoln do
begin
inc(len);
read(a[len]);
end;
for i:=1 to n do
begin
fillchar(b,sizeof(b),0);
for j:=1 to len do
begin
str(a[j],s);
for k:=1 to length(s) do
begin
val(s[k],num,p);
b[j]:=b[j]+pow(num,i+1);
end;
end;
for j:=1 to len do
begin
for k:=1 to len do
if a[j]=b[k] t