还剩1页未读,继续阅读
文本内容:
1、求36的因子有哪些?(不包括它本身)CLEARFORi=1to35IF36%i=0iENDIFENDFORRETURN
2、求100到999之间所有的水仙花数所谓水仙花数是指这个数各个数位上的数字的立方和等于这个数本身如153=1**3+5**3+3**
3.CLEARFORi=100to999gw=i%10sw=INTi/10%10bw=INTi/100IFgw**3+sw**3+bw**3=iiENDIFENDFORRETURN
3、ABC是100以内的自然数,ABC求满足A**2+B**2=C**2的ABC有多少组CLEARn=0FORa=1to100FORb=a+1to100FORc=b+1to100IFa**2+b**2=c**2n=n+1ENDIFENDFORENDFORENDFORnRETURN
4、求100以内所有的素数的个数CLEARn=0FORi=2to100IFsuin=n+1ENDIFENDFORnRETURNFUNCTIONsuxflag=.f.FORm=2toINTSQRTxIFx%m=0EXITENDIFENDFORIFm=INTSQRTx+1flag=.t.ELSEflag=.f.ENDIFRETURNflag
5、将1块钱换成1分,2分,5分的硬币,要求每种硬币至少一枚,请问有多少种兑换的方法CLEARn=0FORyf=1to100FORef=1to50FORwf=1to20IFyf*1+ef*2+wf*5=100n=n+1ENDIFENDFORENDFORENDFORnRETURN
6、有一个数列,这个数列的第一项是1,第二项也是1,从第三项开始,每一项是前两项之和请问这个数列的第43项是多少,前50项的和是多少CLEARDIMENSIONfib50fib1=1fib2=1sum=fib1+fib2FORi=3to50fibi=fibi-1+fibi-2sum=sum+fibiENDFORfib43sumRETURN。