vb中求3位数中 7的倍数的总和-搜答案-智慧作业帮

四位数,个、十、百上的数字可取0~9,千上的数字只能取1~9.先不管个位数上的数字,千位数上有9种选择,百位数上有10种选择,十位数上有10种选择——总共是9*10*10=900种选择.不管前面三个数

根据可以被2整除的特点和被5整除的特点来判断啊被2整除的都偶数即个位数必须是6或0十位和百位随意可有506560650被5整除的个位必须是5或0即650560605同时被2和5整除的就在其上面的6个数

这个采用枚举算法：枚举的关键：一一列举,逐个检验一一列举：用循环逐个检验：用选择n3=0'存放3的倍数的个数n7=0'存放7的倍数的个数Fori=1To100ifiMod3=0Thenn3=n3+1i

基本上定义为integer类型的地方都可以定义为long型,并且long类型的数据范围较大,所以请尽量使用long.

PrivateSubCommand1_Click()Dimi%Fori=100To999IfiMod7=0AndMid(CStr(i),2,1)="2"ThenPrintiNextEndSub再问：M

if(xmod4=0)or(xmod13=0)thenprint"X是4或者13的倍数"endif

答：0、2、5、7、81）2+5+7+8=22,不能被3整除,所以：0一定在4位数里面2）0+2+5+7=140+2+5+8=150+2+7+8=173）0+5+7+8=20综上所述,只有0、2、5、

PrivateSubCommand1_Click()s=0Fori=100To200IfiMod3=0Thens=s+iEndIfNextiText1.Text=sEndSu

1298515用as3写的.用其他语言也大同小异varsumtemp:int;for(vari=1000;i

4个数字之和为25的有:16991798259926972896

#includeintmain(){inti,sum=0;for(i=1000;i

也就是能被3整除的数的偶数即从1002,1008..9996共计9000/6=1500个数1002*（1+2+3..+1500）=1002*(1+1500)*1500/2=1128001500

有405个,这个只有通过编程来解答

和是1592376这样的数字从1068、1086、1158、1176、1194……到……9948、9966、9984共306个.

#include"stdio.h"voidmain(){inta,b,c,d,i;unsignedlongs=0;for(i=1000;i

PrivateSubCommand1_Click()Dimi,a,b,c,dFori=1000To9999a=CLng(Mid(i,1,1))b=CLng(Mid(i,2,1))c=CLng(Mid(

C++程序#includevoidmain(void){ints=0;for(inti=100;i

1047,1059,1074,1095,1407

PrivateSubCommand1_Click()Dimm%,n%Fori=1To100IfiMod3=0Thenm=m+1IfiMod7=0Thenn=n+1NextiPrint"统计1~100中

PrivateSubCommand1_Click()Dimi%,j3%,j7%Fori=1To100IfiMod3=0Thenj3=j3+1IfiMod7=0Thenj7=j7+1NextPrint"

vb中求3位数中 7的倍数的 总和