以下为求1到30之间能被6整除的数之和的代码

subcommand1_click()dimiasinteger,sasintegers=0fori=1to100if(imod3=0andimod7=0)thens=s+inextmsgboxsen

.不是16是多少,你自己看啊.6,12,18,24,30,36,42,48,54,60,66,72,78,84,90,96正好16个啊

#includevoids(){longs=1*2+1*2*3*4+1*2*3*4*5*6+1*2*3*4*5*6*7*8;cout

dimnum3asintegerfori=1to1000ifimod3=0thennum3=num3+iendifnext

3^48-1=(3^24+1)(3^24-1)=(3^24+1)(3^12+1)(3^12-1)=(3^24+1)(3^12+1)(3^6+1)(3^6-1)=(3^24+1)(3^12+1)(3^6

2^48-1=(2^24+1)(2^24-1)=(2^24+1)(2^12+1)(2^12-1)=(2^24+1)(2^12+1)(2^6+1)(2^6-1)=(2^24+1)(2^12+1)*65*

4^32-1=(2^16+1)(2^16-1)=(2^16+1)(2^8+1)(2^8-1)=(2^16+1)(2^8+1)(2^4+1)(2^4-1)=(2^16+1)(2^8+1)(2^4+1)(

6^8-1=(6^4-1)(6^4+1)=(6^2+1)(6^2-1)(6^4+1)=37*35*(6^4+1)这两个数是35,37

1到200之间,能被3整除有=198/3=66个1到200之间,能被21整除有=189/21=9个1到200之间,能被3整除但不能被7整除的数=能被3整除-能被21整除=66-9=57个count=0

--求1到50之间能被3整除的数的和DECLARE@iINT,@sumINTSELECT@i=1,@sum=0WHILE@i

在100到500之间能被11整除的第一个数为110.其次每个数都比前一个数大11,即110,121,132,143,154……观察可知其中偶数项为奇数,即121,143,165…………其中奇数为121

1填写imod6=0,指的是余数要等于0；2填写S,表示要把S输出.

105+120+135+150+165+180+195=1050

vari,s:longint;begins:=0;fori:=100to500doifimod9=0thens:=s+i;writeln(s);readln;end.或是#includeintmain

因：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+

因为2^1=1,2^2=4,2^3=8,2^4=16,2^5=32……可以发现2的n次方的个位,是以每4次方为周期,所以2的15次方的个位数字是8,那么2的15次方-8的个位数字为0,则2,5能整除.

1到100之间能被5整除的数：100/5=201到100之间能被6整除的数：100/6=16.41到100之间既能被5整除又能被6整除的：100/（5*6）=3.101到100之间既不能被5整除也不能

在100到400之间能被3整除的数最小为102,最大为399相邻两数之间相差都为3因此一共有：（399-102）÷3+1=99个数字根据等差数列求和公式,和为：（102+399）×100÷2=2505

100到200之前能被3整除的数满足数列：a1=102an=102+3n100到200间最大可被3整除的数字是198an=102+3n=198解得n=32该数列为等差数列,数列求和Sn=（a1+an）

24,30,36的最小公倍数为360.1000＜360n＜5000,n最小为3,最大为13所以1000到5000之间能被24,30,36整除的所有整数和=360×（3+4+...+13）=31680