求100以内可以被3或7整除的数的个数。（QB语言）

来源：百度知道 编辑：UC知道 时间：2024/05/17 02:58:31
RT
要用QB输出的。希望越容易理解越好。不要又语法错误。急需！

s=0

for i=1 to 100
if i mod 3=0 or i mod 7=0 then s=s+1
next

print s

S=0
FOR I=1 TO 100
IF INT(I/3)=I/3 OR INT(1/7)=1/7 THEN S=S+1
NEXT

PRINT S

dim count,i
for i=1 to 100
if i mod 3=0 or i mod 7 =0 then count=count+1
next i
print count

求100内能被三整除的最高数 除以三 就是
7一样
3的有33个
7的有14个