3、从键盘输入一个正整数,判断其所含5的个数。(如:输入数值2345105,其中包含5的个数为2)
8 h' r/ c6 Y: S( K* _# s6 p1 o 程序代码:8 V) V5 |! N* H
SET TALK OFF
- Z6 T: O7 o5 U) q: W clear6 W: t# s4 w# v: t( I
INPUT "请输入一个正整数X:" TO X
* K: k8 d! a# R7 g/ u0 G S=0
& v: X3 B8 K, f8 B* B DO WHILE .T.; J6 M. \- j9 p- D0 R' I$ i5 k/ a
N=MOD(X,10) &&第一次求X的个位数N,第二次求X的十位数N,…
9 o! ^6 `" W+ E3 V& H e/ m* v IF N=5
2 K$ X3 g$ `) | Q$ N* p" R S=S+1
3 a6 P! N7 [0 b ENDIF4 v% X0 j5 a+ I- s, P0 [7 a
X=INT(X/10)2 A( W3 i, D3 n
IF X=0
0 h3 @# l3 }6 c( c: p EXIT
]% T4 P" Z, W ENDIF+ Z: u' j( ]# P6 O" e
ENDDO
& N, f0 r$ T5 a5 r. ]7 Y) X- x8 k ?"X中5的个数为:",S/ R2 F' @$ L9 B9 f
SET TALK ON
; c, B. P0 G3 I: `: T% \2 j 4、从键盘输入20个数,去掉20个数中的最大值和最小值,然后求平均值。
' A i B* i1 b1 A# ]! |$ X( ~ 程序代码:( Y1 g$ c' l- ~+ K! g! [
SET TALK OFF
( j s2 v! n2 J% U CLEAR
: E$ {/ i6 ^4 W& T8 Y S=04 v: T, {( S/ j# r( C/ m& k- I0 }8 ^
N=1
6 I u! S- ?6 h, {" p STORE 0 TO MAX,MIN
8 S3 x7 |5 o a T* w+ T- C2 h8 l1 e2 O$ V
DO WHILE N |