回 帖 发 新 帖 刷新版面

主题:【求助】帮个忙 三道非常非常简单的题题 急急急

1.输入一个三位正整数 求其各位数字之和


2.对于输入的三个数 去掉一个最大数 输出剩下两个数的平均值


3.输出数字100所有的正约数 并统计满足条件数的个数



我是菜鸟我是菜鸟我是菜鸟我是菜鸟我是菜鸟我是菜鸟我是菜鸟我是菜鸟我是菜鸟我是菜鸟我是菜鸟我是菜鸟我是菜鸟我是菜鸟我是菜鸟我是菜鸟我是菜鸟我是菜鸟我是菜鸟我是菜鸟我是菜鸟我是菜鸟我是菜鸟我是菜鸟我是菜鸟我是菜鸟我是菜鸟我是菜鸟我是菜鸟我是菜鸟我是菜鸟我是菜鸟我是菜鸟我是菜鸟我是菜鸟我是菜鸟我是菜鸟我是菜鸟我是菜鸟我是菜鸟我是菜鸟我是菜鸟我是菜鸟我是菜鸟我是菜鸟我是菜鸟我是菜鸟我是菜鸟我是菜鸟我是菜鸟我是菜鸟我是菜鸟我是菜鸟我是菜鸟我是菜鸟我是菜鸟我是菜鸟我是菜鸟我是菜鸟我是菜鸟我是菜鸟我是菜鸟我是菜鸟我是菜鸟我是菜鸟我是菜鸟我是菜鸟我是菜鸟我是菜鸟我是菜鸟我是菜鸟我是菜鸟我是菜鸟我是菜鸟我是菜鸟我是菜鸟我是菜鸟我是菜鸟我是菜鸟我是菜鸟我是菜鸟我是菜鸟我是菜鸟我是菜鸟

回复列表 (共11个回复)

沙发

1.
Cls
Input n
s = n Mod 10 + n \ 10 Mod 10 + n \ 100
Print s
End

板凳

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 楼

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 楼


[em8]这个不行耶~输入123 输出时28 = =

5 楼


最后应该是 (a+c)/2

6 楼

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 楼

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 楼

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 楼

哇哦
唐第三题答案和我一样啊…………

10 楼

洪天逸前两题太麻烦了。
第一题都说了三位数还用字符串,直接取数就行了;
第二题不用定义数组,既然说是去最大的,只要把最大的找出来:
  If a > b Then Swap a, b
  如果a>b交换,这时a不可能是最小的;
  If b > c Then Swap b, c 
  如果b>c交换,这时b不可能是最小的;
最后输出(a+b)/2就行了。
不用你那么麻烦。

我来回复

您尚未登录,请登录后再回复。点此登录或注册