求1000以内能被23和37整除的数 vb

publicclassTest{publicstaticvoidmain(String[]args){intsum=0;for(inti=1;i

PrivateSubCommand1_Click()DimiAsLongDimsAsStringFori=1To1000DoEventsIf(iMod37)=0Thens=s&CStr(i)&""Ne

1+14+27+…＋…＋976＋989＝1＋（14＋989）×38＝38115

100÷7=14...2100以内能被7整除的正整数一共有14个分别是：7,14,21,...,91,98这是一个以7为首项,公差是7的等差数列它们的和是：(7+98)×14÷2=735即100以内能

alert(Math.floor(1000/17)+Math.floor(1000/23)-Math.floor(1000/17/23))99

17*23=391391+682=1037

不知道你想用什么语言编?sum=0for(i=0,i再问：C++谢谢！！再答：C++不会啊，不过思路都是一样的你就把上面的语法格式改成C++的就是了再问：不会、O(∩_∩)O谢谢

100以内,能同时被3和5整除的偶数有30,60,90,它们的和为30+60+90=180

这是一个while的写法：#include<stdio.h>main(){inta=35,s=0;while(a<=1000){if(a%5==0&a

s=0FORn=1TO1000STEP2s=s+nendf或者说**或者s=0FORn=1TO1000IFINT(n/2)n/2s=s+nENDIFendf很多方法都可以嘛

clears=0fori=1to100ifi%3=0s=s+iendifendfor"100以内所有能被3整除的整数的和是：",s

#includeusingnamespacestd;intmain(){\x09intsum=0;\x09for(inti=1;i

PrivateSubCommand1_Click()Dimi%Text1.Text=""Fori=1To1000IfiMod17=0AndiMod37=0ThenText1.Text=Text1.Te

1000到8000以内能同时被3和7整除的整数和1008+1029+1050+...+7980=333*(1008+7980)/2=1496502这是一个以1008为首项,21为公差的等差数列的前33

我是初学者,水平有限还请见谅!#include <iostream>using namespace std;int main(){\x05int&n

答案：76127；P程序如下：vari,j,k,n,z:longint;beginfori:=2to1000dobegink:=1;forj:=2toround(sqrt(i))doifimodj=0

QBSASIC语言：LETn=1000LETsum=0WHILEn>0IFnMOD3=0THENsum=sum+nn=n-1ENDPRINTSUM

programex;varn,i:integer;//s是输入的数,i是循环变量s:longint;//统计和的变量beginreadln(N);//读入ns:=0;//s赋初值fori:=21ton

#include#includevoidmain(){floatcount=0.0;for(inti=1;i

4×7=28,1000除以28等于35多,5000除以28等于178多,因此所要求的数之和为：28×（36+37+38+39+40+……+178）=?36-178共计143个数,中间一个数位107,1