主题：输出1——999中能被3整除，且至少有一位数字是5的数
wdzrdr
[专家分：0] 发布于 2006-10-18 14:31:00
输出1——999中能被3整除，且至少有一位数字是5的数
回复列表 （共19个回复）
11 楼
星月神ming [专家分：180] 发布于 2007-01-06 17:28:00
for i=1 to 999
if i mod 3=0 then
k=i
if i>10 then
k=i/10
j=i mod 10
endif
if i>100
k=i mod 10
j=i /10 -((i/100)*10)
h=i /100
endif
if k=5 or j=5 or h=5 then print i
endif
next i
end
12 楼
ld596888 [专家分：0] 发布于 2007-01-17 23:54:00
1楼的程序中应删去 y=x/3 然后把 y 改成 x 即可！
13 楼
ld596888 [专家分：0] 发布于 2007-01-18 00:01:00
11楼的程序是错误的！
14 楼
星月神ming [专家分：180] 发布于 2007-01-19 15:54:00
for i=1 to 999
if i mod 3=0 then
k=i/100
j=(i mod 100)/10
m=i mod 10
if k=5 or j=5 or m=5 then ?i
endif
next i
15 楼
强强 [专家分：4740] 发布于 2007-01-25 22:51:00
果然是高手啊真，精练，服了MOZ
16 楼
4076254 [专家分：0] 发布于 2007-01-26 09:56:00
顶一下吧. 到手边的程序写不出。
17 楼
chyx [专家分：450] 发布于 2007-03-23 19:12:00
CLS
FOR I=1 TO 999
IF I MOD 3=0 AND I MOD 10=0 THEN ? I
NEXT I
END
18 楼
Lovely哆啦 [专家分：1360] 发布于 2007-03-29 18:59:00
又到了哆啦A梦,大显身手的时候了
CLS
FOR I=1 TO 999
IF I MOD 3=0 THEN
X=I
DO
S=X MOD 10
IF S=5 THEN PRINT I:S=-1
X=X\10
LOOP UNTIL X=0
END IF
IF S=0 THEN 10
10 NEXT I
19 楼
小精灵LS [专家分：580] 发布于 2007-03-30 16:44:00
CLS
FOR I=5 TO 995
IF I MOD 3<>0 THEN 10
A$=LTRIM$(STR$(I)):F=0
FOR J=1 TO LEN(A$)
IF VAL(MID$(A$,J,1))=5 THEN F=-1:EXIT FOR
NEXT J
IF F THEN PRINT I;
10 NEXT I
END
我来回复
您所在位置：