?? 判斷素數.bak
字號:
set talk off
clear
input"請輸入數據:"to m
flag=.T.
i=2
do while i<=m-1.and.flag
if mod(m,i)=0
flag=.F.
?"不是素數!"
endif
i=i+1
enddo
?"所輸入的數據是素數!"
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -