董凌帆
幼苗
共回答了22个问题采纳率:95.5% 举报
我这个今天恰好写的求任意回文数(键盘输入)的方法,只用了基本的循环 判断 结构.改编了以下 应该解你的替题目 贴上来 供参考吧.
一:
n = 1
WIHLE(n = 1)
a = n MOD m ( m /10 )
m = m * 10
i = i / 10
s = s + a
WEND
IF s = n AND n 是质数 THEN
PRINT n (这个判断n是不是质数的函数楼主自己编吧(我们没学 见谅哈 判断质数的方法知道 但自定义个function 没讲哦)
END IF
n = n+1
WEND
END
二
n = 10000
WIHLE(n = 1)
a = n MOD m ( m /10 )
m = m * 10
i = i / 10
s = s + a
WEND
IF s是质数 AND n是质数 THEN
PRINT n (这个判断n ,s是不是质数的函数楼主自己编吧(我们没学 见谅哈 判断质数的方法知道 但自定义个function 没讲哦)
END IF
n = n+1
WEND
END
1年前
2