编程求 1 到 n 中能被 3 或 7 整除的数之和.

for(x=n;x>=3;x--)'判断的最小值为3,小于3的值就没有意义{if(!(x mod 3) or !(x mod 7))'被3除无余数或被7除无余数count+=x;}x=n;while(x-->=4)'因为是先判断后自减程序中的值比判断值小1.判断是4程序中是3{if(!(x mod 3) or !(x

#include/*用for循环实现*/void main(){\x09int n;\x09int m;\x09printf("please input n\n");\x09scanf("%d",&n);\x09for(int i = 1; i

int sum(int n){    List<int> list = new List<int>();    for(int x =&

int main(void){\x09int sum=0,i;\x09for(i=1; i

Sum = 0For i = 100 To 300 If i Mod 21 = 0 Then Sum = Sum + i End IfNext==>优化一点：Sum = 0For i = 100 To 300 If i Mod 21 = 0 Then Sum = Sum + i i = i + 20 End IfNex

1+2+4+7+ 8+ 11 +13+ 14+ 16 +17 +19 +22 +23 +26 +28 +29+ 31+ 32 +34+ 37 +38+ 41+ 43 +44 +46+ 47 +49 +52+ 53 +56 +58+ 59+ 61 +62 +64 +67+ 68 +71+ 73 +74 +76 +77 +

Private Sub Command1_Click()Dim i, j, sum As IntegerFor i = 1 To 100j = i Mod 21If j = 0 Then sum = sum + i ^ 2Next i Print sum '打印和End Su

什么语言?下面是VF的* 编程求1~300之间能同时被6和8整除的数的和s=0FOR i=1 TO 300 IF i%6=0 .and. i%8=0 s=s+i ENDIFENDFOR?"1~300之间能同时被6和8整除的数的和：",s

iTot = 0For i = 1 To 100If i Mod 5 = 0 Or i Mod 7 = 0 Then iTot = iTot + iNext iPrint iTot结果是:1680【由于字数限制,去除了Sub,及变量定义】

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

int i,j,n,a[3][4]; 初始化数组n=a[0][0];for(i=0;

dim num3,num7 as integerfor i=1 to 1000 if i mod 3=0 then num3=num3+1 end if if i mod 7=0 then num7=num7+1 end ifnext最后num3就是能被3整除的数的个数.num7是能被7整除的个数.

#includevoid main(){int i,max,min,a[ ]={8,2,5,-3,7,-9,0,-4,10,15};max=min=a[0]; for(i=0;i

#include void main (){ int a[]= {8,2,5,-3,7,-9,0,-4,10,15},i,min,max; //这里的逗号和负号是中文符号,代码中必须都是英文字符max=a[0];min=a[0];for(i=1;ia[i]) min=a[i];if(max

可参考以下程序:int a[5][5];//5*5数组int i,x,y;//x,y是两个对角线元素的和.x=0;for(i=0;i

我刚做了一关于英文句子里面每个单词平均字长的.与你问题很近.#include "stdio.h"#include #include "ctype.h"#define MAX 1000000char buf[MAX],s[MAX];char p[MAX];int main(){int n = 0;int m = 1;in

我来 #include #include "stdlib.h"#include "time.h"main(){int i,j,*p,arry[3][4];p=arry[0];srand((unsigned)time(NULL));for (i=0;i 再问： 好的，谢谢您了，高分回报！ 再答： 完成了 哈哈 矩

var i,sum:longint;begin for i:=1 to 200 do if(i mod 2=0)then sum:=sum+i; writeln(sum);end.在线打的,如有错,请谅解. 再问： 求所有三位数的和 再答： var i,sum:longint; begin for i:=100 to

for i=1 to 50if i mod 2 0 then sum=sum+inextmsgbox sum

#include "stdio.h"void main(){int i;for(i=10;i<=150;i++){if((i%4==0)||(i%5==0))printf("%d ",i);}}