写出能同时被3、5、7整除的最小的四位数和最大的三位数。大侠赐招

顶

LOOP UNTIL(X MOD 3=0) AND(X MOD 5=0) AND(X MOD 7=0) PRINT X

LS的忘了next i了

max =0 : min=10000
for i=100 to 999
 if i mod 3=0 and i mod 5=0 and i mod 7 =0 then 
 if i >max then max =i
 end if 
nexi i
for i =1000 to 9999
 if i mod 3=0 and i mod 5=0 and i mod 7 =0 then 
 if i <min then min =i
 end if 
nexi i
print min , max
end

晕，看不懂

7楼的误会了意思
8楼的程序太麻烦
CLS
FOR I=999 TO 100
IF I MOD 3=0 AND I MOD 5=0 AND I MOD 7=0 THEN PRINT I:EXIT FOR
NEXT I
FOR I=1000 TO 9999
IF I MOD 3=0 AND I MOD 5=0 AND I MOD 7=0 THEN PRINT I:END
NEXT I
END

看我的吧又正确又简便

cls
v=100
do  
   v=v+1
   if v mod 3=0 and v mod 5=0 and v mod 7=0 then l=l+1:print v:v=1000
loop until l=2
end
我的程序运行可是蛮快的哦

IQBT高的IQ变态的高，这样输出的是最小的三位数！要你的是最大的！应该这样
CLS
V=999:A=1
DO
V=V-A
IF V MOD 3=0 AND V MOD 5=0 AND V MOD 7=0 THEN L=L+1:PRINT V:V=1000:A=-1
LOOP UNTIL L=2
END
这样才对，输出最大的三位数和最小的四位数

看我的简单高效率：
CLS
FOR i = 100 \ 7 TO 9999 \ 7
    IF 7 * i MOD 5 = 0 AND 7 * i MOD 3 = 0 THEN
        IF 7 * i < 1000 THEN x = 7 * i ELSE EXIT FOR
    END IF
NEXT i
PRINT x
PRINT 7 * i
END


PRINT 1000\105*105,(1000\105+1)*105
简单加高效………………

地址 c0dhxlrzml