主题：【求助】帮个忙 三道非常非常简单的题题 急急急
kric5820
[专家分：0] 发布于 2010-12-04 23:08:00
1.输入一个三位正整数 求其各位数字之和
2.对于输入的三个数 去掉一个最大数 输出剩下两个数的平均值
3.输出数字100所有的正约数 并统计满足条件数的个数
我是菜鸟我是菜鸟我是菜鸟我是菜鸟我是菜鸟我是菜鸟我是菜鸟我是菜鸟我是菜鸟我是菜鸟我是菜鸟我是菜鸟我是菜鸟我是菜鸟我是菜鸟我是菜鸟我是菜鸟我是菜鸟我是菜鸟我是菜鸟我是菜鸟我是菜鸟我是菜鸟我是菜鸟我是菜鸟我是菜鸟我是菜鸟我是菜鸟我是菜鸟我是菜鸟我是菜鸟我是菜鸟我是菜鸟我是菜鸟我是菜鸟我是菜鸟我是菜鸟我是菜鸟我是菜鸟我是菜鸟我是菜鸟我是菜鸟我是菜鸟我是菜鸟我是菜鸟我是菜鸟我是菜鸟我是菜鸟我是菜鸟我是菜鸟我是菜鸟我是菜鸟我是菜鸟我是菜鸟我是菜鸟我是菜鸟我是菜鸟我是菜鸟我是菜鸟我是菜鸟我是菜鸟我是菜鸟我是菜鸟我是菜鸟我是菜鸟我是菜鸟我是菜鸟我是菜鸟我是菜鸟我是菜鸟我是菜鸟我是菜鸟我是菜鸟我是菜鸟我是菜鸟我是菜鸟我是菜鸟我是菜鸟我是菜鸟我是菜鸟我是菜鸟我是菜鸟我是菜鸟我是菜鸟
回复列表 （共11个回复）
沙发
幽灵密码 [专家分：3510] 发布于 2010-12-05 11:05:00
1.
Cls
Input n
s = n Mod 10 + n \ 10 Mod 10 + n \ 100
Print s
End
板凳
幽灵密码 [专家分：3510] 发布于 2010-12-05 11:06:00
2.
Cls
Input a, b, c
If a > b Then Swap a, b
If b > c Then Swap b, c
Print (a + b) / 2
End
3 楼
幽灵密码 [专家分：3510] 发布于 2010-12-05 11:10:00
3.
Cls
For i = 1 To Int(Sqr(100))
If 100 Mod i = 0 Then
Print i; 100 / i;
s = s + 2
End If
Next i
Print: Print s
End
4 楼
kric5820 [专家分：0] 发布于 2010-12-05 16:52:00
[em8]这个不行耶~输入123 输出时28 = =
5 楼
kric5820 [专家分：0] 发布于 2010-12-05 17:01:00
最后应该是 （a+c）/2
6 楼
verysmartboy [专家分：1260] 发布于 2010-12-05 17:29:00
1.
CLS
INPUT n#
PRINT LTRIM$(STR$(VAL(MID$(LTRIM$(STR$(n#)), 1, 1))+VAL(MID$(LTRIM$(STR$(n#)), 2, 1))+VAL(MID$(LTRIM$(STR$(n#)), 3, 1))))
END
7 楼
verysmartboy [专家分：1260] 发布于 2010-12-05 17:32:00
2.
CLS
INPUT A,B,C
A(1)=A:A(2)=B:A(3)=C
FOR I=1 TO 2
FOR J=I+1 TO 3
IF A(I)>A(J) THEN SWAP A(I),A(J)
NEXT :NEXT
PRINT LTRIM$(STR$((A(1)+A(2))\2))
END
8 楼
verysmartboy [专家分：1260] 发布于 2010-12-05 17:37:00
3.
CLS
A = 0
FOR I = 1 TO INT(SQR(100))
IF 100 MOD I = 0 THEN PRINT I; 100 / I; : A = A + 2
NEXT I
PRINT
PRINT A
END
9 楼
verysmartboy [专家分：1260] 发布于 2010-12-05 17:40:00
哇哦
唐第三题答案和我一样啊…………
10 楼
幽灵密码 [专家分：3510] 发布于 2010-12-05 18:11:00
洪天逸前两题太麻烦了。
第一题都说了三位数还用字符串，直接取数就行了；
第二题不用定义数组，既然说是去最大的，只要把最大的找出来：
If a > b Then Swap a, b
如果a>b交换，这时a不可能是最小的；
If b > c Then Swap b, c
如果b>c交换，这时b不可能是最小的；
最后输出(a+b)/2就行了。
不用你那么麻烦。
我来回复
您所在位置：