vfp输出100-1000之间能被37整除的数.-搜答案-智慧作业帮

111,148,185,222,259,296,333,370,407,444,481,518,555,592,629,666,703,740,777,814,851,888,925,962,999.

用循环,从100到1000,余数为0的输出到字符变量a中,然后下一轮再用a+那个数.

你这什么问题?如果要优化的话,内循环n再问：换成n

?STR(A(I),3)改为?STR(A(i),3)?"最大数是："+Mmax+"最小数是：",Mmin改为：?"最大数是：",Mmax,"最小数是：",Mmin

1、s=0fori=2to100step2s=s+iendfor2、s=0fori=1to100s=s+iendfor3、s=0fori=1to100step2s=s+iendfor4、s=1fori

*用vfp编写程序,输出100到200之间能被3整除不能被7整除的所有自然数.SETTALKOFFCLEARFORi=100TO200\x05IFMOD(i,3)=0.and.MOD(i,7)0\x0

1、clears=1fori=1to9s=s+i/(i+1)endfor2、clears=0fori=10to100ifmod(i,2)=0s=s+iendifendfo

先在表单上添加个编辑框；然后添加个命令按钮,在命令按钮的click事件中添加如下程序：s=0i=0thisform.edit1.value=""fori=0to300ifi%2==1ifi

#include#include#includeusingnamespacestd;boolisPrime(intm);intmain(){intcount=0;for(inti=100;i再问：LI

lflag=.f.ntime=0nadd=0fori=100to200forj=2toiifint(i/j)=i/jntime=ntime+1endifendforifntime=1nadd=nadd

ClearSetTalkOnk=0Fori=1To1000\x05Ifi%7==0Ori%9==0\x05\x05k=k+1\x05\x05?Str(i,5)\x05\x05Ifk%10==0\x05

clears=0fori=0to100step2s=s+iendfor?"0-100之间的偶数和:",s

clears=0fori=0to5000step2ifi%5=0s=s+iendififs>500exitendifendfo

n=3s=0dowhilen

endif去掉

****!输出菱形CLEARFORi=1TO4FORj=iTO3?""ENDFORFORj=1TO2*i-1?"*"ENDFORFORj=iTO3?""ENDFOR?ENDFORFORi=3TO1ST

fori=100to200ifint(i/3)=i/3andint(i/7)=i/7)thenprintinext

clearinput"请输入一个数："ton?"这些质数有："s=0fori=2tonx=0forj=2toi-1ifi/j=int(i/j)x=1endifendforifx=0?alltrim(s

clears=0fori=1to50x=rand()*100s=s+xendforp=s/50

clearfori=3to100forj=2toi-1ifi%j=0EXITENDIFendfIFj>=iendiendf我运行过了.