主题：[讨论]简单
huqing
[专家分：30] 发布于 2007-06-26 13:02:00
求1*2*3*3*4*5*6*……*1000的累乘结果中有几个连续的0
回复列表 （共5个回复）
沙发
Matodied [专家分：7560] 发布于 2007-06-26 13:18:00
果然简单。
DECLARE SUB zero (j!)
CLS
DIM SHARED z
z = 0
FOR i = 1 TO 1000
IF i MOD 5 = 0 THEN CALL zero((i))
NEXT i
PRINT z
END
SUB zero (j)
IF j MOD 5 = 0 THEN z = z + 1: CALL zero(j / 5) ELSE EXIT SUB
END SUB
板凳
huqing [专家分：30] 发布于 2007-06-26 13:27:00
发表时间：2007-6-26 13:18:00 [回复] [引用]
1 楼
果然简单。
DECLARE SUB zero (j!)
CLS
DIM SHARED z
z = 0
FOR i = 1 TO 1000
IF i MOD 5 = 0 THEN CALL zero((i))
NEXT i
PRINT z
END
SUB zero (j)
IF j MOD 5 = 0 THEN z = z + 1: CALL zero(j / 5) ELSE EXIT SUB
END SUB
3 楼
＆佑慧妹妹＆ [专家分：660] 发布于 2007-06-26 20:24:00
既然已经有高手来了，我就发个简单的吧，各位不要见笑
cls
for i=5 to 1000 step 5
j=i/5
2 if j<>int(j) then 1
k=k+1:j=j/5
goto 2
1 next i
print k:end
4 楼
网虫一号 [专家分：1230] 发布于 2007-09-25 14:19:00
CLS
FOR I=1 TO 100
A=I
FO WHILE A MOD 5=0
N=N+1:A=A/5
LOOP
NEXT I
PRINT A
END
5 楼
QB小猪 [专家分：1200] 发布于 2007-09-27 14:06:00
楼上的是1*2*3*3*4*5*6*……*1000,看我的吧:
cls
for i=1 to 1000
j=i
do while j mod 5=0
n=n+1:j=j\5
loop
next i
?n
end
我献丑啦!
我来回复
您所在位置：