主题:请教大虾们!
清风逸
[专家分:0] 发布于 2005-10-13 22:45:00
1. 从键盘输入一个不多于6位数的正整数,挑选出其中的偶数字,按反序组成一个新数并输出(如:输入32456,输出642)
input a
n=_______________
c=0
for I=1 to n
b=______________
a=______________
______________
next I
print c
end
2. 下面是一个体操评分程序。10位评委,除去一个最高分和一个最低分,计算平均分,请填空。
Let ma =0:mi =10
For I =1 to 10
Input n
If__________then let ma = n
If n<mi then let mi = n
Let s=s+n
Next I
Let s=____________
Let p=s/8
Print p
回复列表 (共5个回复)
沙发
星月神ming [专家分:180] 发布于 2007-02-03 19:41:00
2. 下面是一个体操评分程序。10位评委,除去一个最高分和一个最低分,计算平均分,请填空。
Let ma =0:mi =10
For I =1 to 10
Input n
If_____n>ma_____then let ma = n
If n<mi then let mi = n
Let s=s+n
Next I
Let s=__s-ma-mi__________
Let p=s/8
Print p
不好意思,我就会这一题
板凳
老大徒伤悲 [专家分:29120] 发布于 2007-02-04 21:06:00
蒙一下!
input a
n=len(string(a)
c=0
for I=1 to n
b=right(a,1)
a=left(a,n-i)
if val(b) mod 2=0 then c=c&b
next I
print c
end
其中,几个函数名称的书写不一定对,多包涵。
3 楼
qiujie1142 [专家分:0] 发布于 2007-03-25 01:38:00
Let ma =0:mi =10
For I =1 to 10
Input n
If_n>ma__then let ma = n
If n<mi then let mi = n
Let s=s+n
Next I
Let s=s-mai-mi_(去掉一个最大值和一个最小值)
Let p=s/8
Print p
4 楼
爱丽斯LING [专家分:560] 发布于 2007-03-30 16:29:00
input a
n=LEN(LTRIM$(STR$(N)))
c=0
for I=1 to n
b=MID$(LTRIM$(STR$(A)),2,1)
a=B+A
C=C+1
next I
print c
end
5 楼
爱丽斯LING [专家分:560] 发布于 2007-03-30 16:30:00
2. 下面是一个体操评分程序。10位评委,除去一个最高分和一个最低分,计算平均分,请填空。
Let ma =0:mi =10
For I =1 to 10
Input n
If N>MA then let ma = n
If n<mi then let mi = n
Let s=s+n
Next I
Let s=S-MA-MI
Let p=s/8
Print p
我来回复