编写程序求从100到1000的自然数里所有能同时被3、5、7整除的自然数之和
展开全部
将下面语句复制到一个文本文档中,将后缀名改为vbs,然后双击运行:
dim s,i
for i=100 to 1000
if (i mod 3*5*7 = 0) then
s=s+i
end if
next
msgbox s
dim s,i
for i=100 to 1000
if (i mod 3*5*7 = 0) then
s=s+i
end if
next
msgbox s
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
vfp
for i=100 to 1000
if int(i/(3*5*7))=i/(3*5*7)
s=s+i
endif
endfor
?s
for i=100 to 1000
if int(i/(3*5*7))=i/(3*5*7)
s=s+i
endif
endfor
?s
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
什么语言?C++吗?
我就写个核心代码吧
#include<stdio.h>
void main()
{
int a[500],i,j=0,sum=0;
for(i=100;i<1001;i++)
{if(i%3==0&&i%5==0&&i%7==0)
{a[j]=i;j++}
}
for(j=0;j<500;j++)
{sum+=a[j]; }
}
我就写个核心代码吧
#include<stdio.h>
void main()
{
int a[500],i,j=0,sum=0;
for(i=100;i<1001;i++)
{if(i%3==0&&i%5==0&&i%7==0)
{a[j]=i;j++}
}
for(j=0;j<500;j++)
{sum+=a[j]; }
}
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询