计算从1到1000之间所有能被7整除的数的个数-搜答案-大师作文网

你一点都不做?做一做大家给你修改才是正途

dimnum3asintegerfori=1to1000ifimod3=0thennum3=num3+iendifnext

RemLanguage:QuickBASICExtended7.1 i=1 Do Ifimod3=0Orimod7=0Then&nbs

个位是五或零的数字都能被五整除,试用于无限大,求和就靠你了.

这个简单啊!#includemain(){intsum=0,n=0;scanf("%d",&n);for(inti=0;i

放一个列表框用来显示生成的100个随即数,2个按纽,其中一个用来生成随即数,如图：#include//包含输入输出流头文件voidmain(){\x05inti;//\x05intj=0;//能被10

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

设置了没5个换行PrivateSubBcompute_Click()t=0Fori=1To12260If(iMod3=0)And(iMod7=0)And(iMod9=0)ThenTresult.Tex

//---------------------------------------------------------------------------#includeintmain(void){i

#includevoidmain(){inti,sum=0;for(i=3;i

一千以内的质数有：2357111317192329313741434753596167717379838997101103107109113127131137139149151157163167173

新建一个程序文件,代码如下：clearn=0input"输入一个大于0的整数"toifori=1toiifmod(i,3)!=0n=n+1endifendfor保存并运行即可!

1+3+...+99=(1+99)*50/2=2500

1003到1998,200个(1003+1998)*500/2=750250

PrivateSubForm_Load()ForI=1To1000IfIMod7=0ThenX=X+1IfXMod10=0ThenLabel1.Caption=Label1.Caption&vbNew

1000到2000之间不能被5除余3的第一数为1003后面为1008为一等差数列最后一项为19981003+1008+.+1998=200*(1003+1998)/2=3001001000到2000数

inti,sum=0;for(i=1000;i

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

dimiasintegerdimaasintegera=3*7*9fori=1to13230ifimoda=0then'这里你要对i干什么?,我就打印到立即窗口上debug.printiendifne

楼上推荐的程序有个问题.3*7*9应该写成7*9,否则会漏掉63dimiasintegerdimjasintegerdimSasLongS=0fori=1to13230ifimodj=0thenS=S