3、从键盘输入一个正整数,判断其所含5的个数。(如:输入数值2345105,其中包含5的个数为2)
# b( `# a$ ^4 U" m 程序代码:- J1 @9 L5 x6 N5 y
SET TALK OFF5 k* t* H, X; d: b# N/ y
clear2 n, f7 g" X' r
INPUT "请输入一个正整数X:" TO X
5 \3 c9 S% l7 y4 ` S=06 c, b# _$ m$ X* l% d. F
DO WHILE .T.
! b1 f H+ o! J N=MOD(X,10) &&第一次求X的个位数N,第二次求X的十位数N,…1 T% E, \/ [' l( y0 l
IF N=5
' u3 A4 P1 ]# g* B, f4 s; Q% M S=S+11 T' j* E& u# J9 Q `
ENDIF
- \7 Q' O) \" b8 c X=INT(X/10)
9 d. q6 s5 I4 f5 S; A- W# U/ Q& r IF X=0
- `/ u& U4 L# L# I. r EXIT
- }7 p4 _: ?3 H8 c1 X+ z- k: G ENDIF5 _# ]" T3 b& J
ENDDO
" A6 z6 K, }4 X& A! Z ?"X中5的个数为:",S
9 d# w# Q+ |2 ^7 }5 B% T3 n SET TALK ON
$ I6 i* i u" M& l& _0 L 4、从键盘输入20个数,去掉20个数中的最大值和最小值,然后求平均值。' ^% i* ~' D3 d! v
程序代码:# O- v6 k* X; S
SET TALK OFF; }; x! r2 |. N( N- i6 c
CLEAR
1 p* Z' u+ k* ^$ J S=0
9 ]/ P# o: D9 f+ S N=1
6 l5 c, W6 G2 f5 ~1 S STORE 0 TO MAX,MIN
: d1 O. }: B7 `' L! F, R4 q5 n1 c3 o
DO WHILE N |