如果您无法下载资料，请参考说明：
1、部分资料下载需要金币，请确保您的账户上有足够的金币
2、已购买过的文档，再次下载不重复扣费
3、资料包下载后请先用软件解压，在使用对应软件打开
求36的因子有哪些？（不包括它本身）CLEARFORi=1to35IF36%i=0?iENDIFENDFORRETURN求100到999之间所有的水仙花数。所谓水仙花数是指：这个数各个数位上的数字的立方和等于这个数本身。如：153=1**3+5**3+3**3.CLEARFORi=100to999gw=i%10sw=INT(i/10)%10bw=INT(i/100)IFgw**3+sw**3+bw**3=i?iENDIFENDFORRETURNA,B,C是100以内的自然数，A<B<C,求满足A**2+B**2=C**2的A,B,C有多少组。CLEARn=0FORa=1to100FORb=a+1to100FORc=b+1to100IFa**2+b**2=c**2n=n+1ENDIFENDFORENDFORENDFOR?nRETURN求100以内所有的素数的个数。CLEARn=0FORi=2to100IFsu(i)n=n+1ENDIFENDFOR?nRETURNFUNCTIONsu(x)flag=.f.FORm=2toINT(SQRT(x))IFx%m=0EXITENDIFENDFORIFm=INT(SQRT(x))+1flag=.t.ELSEflag=.f.ENDIFRETURNflag将1块钱换成1分，2分，5分的硬币，要求每种硬币至少一枚，请问有多少种兑换的方法。CLEARn=0FORyf=1to100FORef=1to50FORwf=1to20IFyf*1+ef*2+wf*5=100n=n+1ENDIFENDFORENDFORENDFOR?nRETURN有一个数列，这个数列的第一项是1，第二项也是1，从第三项开始，每一项是前两项之和。请问这个数列的第43项是多少，前50项的和是多少。CLEARDIMENSIONfib(50)fib(1)=1fib(2)=1sum=fib(1)+fib(2)FORi=3to50fib(i)=fib(i-1)+fib(i-2)sum=sum+fib(i)ENDFOR?fib(43),sumRETURN
立即下载
