3、從鍵盤輸入一個正整數，判斷其所含5的個數。(如：輸入數值2345105，其中包含5的個數為2)

　　程序代碼：

　　SET TALK OFF

　　clear

　　INPUT "請輸入一個正整數X:" TO X

　　S=0

　　DO WHILE .T.

　　N=MOD(X,10) &&第一次求X的個位數N,第二次求X的十位數N，…

　　IF N=5

　　S=S+1

　　ENDIF

　　X=INT(X/10)

　　IF X=0

　　EXIT

　　ENDIF

　　ENDDO

　　?"X中5的個數為:",S

　　SET TALK ON

　　4、從鍵盤輸入20個數，去掉20個數中的最大值和最小值，然后求平均值。

　　程序代碼：

　　SET TALK OFF

　　CLEAR

　　S=0

　　N=1

　　STORE 0 TO MAX,MIN

　　DO WHILE N<=20

　　INPUT "B=" TO B

　　S= S+B

　　IF MAX

　　MAX=B

　　ENDIF

　　IF MIN>B

　　MIN=B

　　ENDIF

　　N=N+1

　　ENDDO

　　?"AVERAGE="+ STR((S-MAX-MIN)/18,19,2)

　　SET TALK ON