vb 求1到999之间本身是素数且各位数字之和仍为素数的数.
来源:学生作业帮助网 编辑:作业帮 时间:2024/05/06 01:16:02
#includevoidmain(){inti,j,n=0;for(i=1000;i
Dimn,x,r,sAsSinglen=2s=0DoWhilen再问:能说一下算法的思路吗?再答:首先1不是素数,就用枚举将2到1000的每个数列举出来,再逐个检验,即从2到n/2一一举例,判断是否能
Dimi,j,sAsIntegerFori=1To500s=0Forj=1Toi\2'i\2表示整除结果IfiModj=0Thens=s+jNextjIfi=sThenPrinti&"是完数"Next
判断素数的原理是:素数是只能被1和本身整除的数.例如3只能被1和3整除,17只能被1和17整除等等,想9就不是素数(能被1,3,9整除).编程的算法是:穷举法,就是将需要判断的数除2、除3.一直除到这
哈?拿着mathematica却要用原始素数定义来解题?锈到了吗?list=Select[Range@1000,PrimeQ]Total@list得到的答案是:(*{2,3,5,7,11,13,17,
Private Sub Command1_Click() Dim a As Long &nbs
#include#includeintss(intn)/*检查n是否为素数,如果是则返回1,否则返回0*/{inti;for(i=2;i
1填写imod6=0,指的是余数要等于0;2填写S,表示要把S输出.
sub平方和()dimsumdimiaslongsum=0fori=1to100sum=sum+i*inextiendsu
不是我想说,楼上的都错了,1楼的语法错,j的作用域有问题~2、3楼就不对~下面这个效率高publicclassT{publicstaticvoidmain(String[]args){intsum=5
PrivateSubCommand1_Click()Fori=100To999IfIsPrime(i)Thenn=n+1Printi;IfnMod10=0ThenPrintEndIfNextiEndS
1)t=a(i)这句下标越界了,因为这时i=112)判断素数的语句也有点逻辑上的错误.3)随机数有可能重复.我改了下,请参考:PrivateSubForm_Click()Dima(1To10),iAs
Fori=100To999IfiMod10=3AndiMod7=0ThenPrintiEndIfNexti
PrivateSubForm_Click()DimaAsIntegerDimbAsIntegerDimcAsIntegerDimSAsIntegerS=2(循环无法找出2因为2是唯一一个能被自己整除的
PrivateFunctionfact(n&)AsBoolean'错误1:参数n的数据类型应该与command1_click事件里的i类型一致Dims&'错误2:s的类型也应该是长整型(&),你原来定
Rem语言:VisualBasic6.0SubMain() '开始 i=2 Do j=2 Do
时间有限,只写了C++代码,未调试,思路相同,自己切换吧#include"math.h"BOOLIsPrime(inta){inti;for(i=2;i再问:非常感谢~
#include#includeintss(intn)/*检查n是否为素数,如果是则返回1,否则返回0*/{inti;if(n
clearfori=3to100forj=2toi-1ifi%j=0EXITENDIFendfIFj>=iendiendf我运行过了.
#include#includevoidmain(){inti,j,sum=0;for(i=2;i