isum=0 do 10 i=1,100 if(mod(i,3).eq.0.or.mod(i,5).eq.0)then isum=isum+i endif 10 continue write(*,*)'the sum is',isum end
VB 代码计算能被3或者5整除数三位数之和Dim i As Integer,x As IntegerFor i = 100 To 999If i Mod 3 = 0 And i Mod 5 = 0 Thenx = x + iEnd IfNext iLabel1.Caption = x应该是x=x+i出问题了
根据题意可以将解题过程分为三步:1)计算从1990年1月1日开始至指定日期共有多少天;2)由于“打鱼”和“晒网”的周期为5天,所以将计算出的天数用5去除;3)根据余数判断他是在“打鱼”还是在“晒网”;若余数为1,2,3,则他是在“打鱼”否则是在“晒网”在这三步中,关键是第一步。求从1990年1月1日至指定...
解析 在自然数1,2,3,…,100中,能被2整除但不能被3整除的数有___个.[34] 分析:这100个数字中,2的倍数有50个,6的倍数有16个,2的倍数中去掉6的倍数就是我们需要的数字的个数,即50-16=34. 二、解答题:(8分×5=40分)反馈 收藏
4.编写程序,求[200,1000]既能被3整除又能被5整除的数的和。5.编写程序,求共有几组i、j、k符合算式ijk+kji=1333,其中i、j、k是0～9之间的一位整数。6.编写程序,求三位数的奇数中,所有各位数字之和是15的倍数的数的和。7.编写程序,统计100到650之间能同时被3和7整除的数的个数。8.斐波那契数列的前...