用VFP求1到1000之间能被7整除的数的个数
来源:学生作业帮助网 编辑:作业帮 时间:2024/04/30 10:15:08
.不是16是多少,你自己看啊.6,12,18,24,30,36,42,48,54,60,66,72,78,84,90,96正好16个啊
用循环,从100到1000,余数为0的输出到字符变量a中,然后下一轮再用a+那个数.
dimnum3asintegerfori=1to1000ifimod3=0thennum3=num3+iendifnext
n=1he=0dowihiln
clears=0input'请输入一个正整数:'toxfori=1toxifi%20&&判断i是否为奇数s=s+iendifendfor's=',sreturn(此题是求和问题,循环和用循环语句,因知
clearx=0y=0dowhilex
--求1到50之间能被3整除的数的和DECLARE@iINT,@sumINTSELECT@i=1,@sum=0WHILE@i
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
因:6=2*38=2*2*26和8的最小公倍数是:2*3*2*2=24又:1000/24=41.16所以1到1000之间能同时被6和8整除的数中,最大的10个数之和是:24*(41+40+39+38+
clearnum=0fori=100to300ifi%3=0ori%5=0num=num+1endifendfor"100到300之所有能被3或5整除的数的个数为:",num
lflag=.f.ntime=0nadd=0fori=100to200forj=2toiifint(i/j)=i/jntime=ntime+1endifendforifntime=1nadd=nadd
s=0fori=1to100ifi%3=0s=s+iendifendfo
clears=0fori=0to5000step2ifi%5=0s=s+iendififs>500exitendifendfo
endif去掉
24,30,36的最小公倍数为360.1000<360n<5000,n最小为3,最大为13所以1000到5000之间能被24,30,36整除的所有整数和=360×(3+4+...+13)=31680
clearn=0fori=201to300step2flag=0forj=2toint(sqrt(i))ifmod(i,j)=0flag=1exitendifendforifflag=0n=n+1en
fori=100to200ifint(i/3)=i/3andint(i/7)=i/7)thenprintinext
clearfori=3to100forj=2toi-1ifi%j=0EXITENDIFendfIFj>=iendiendf我运行过了.