NO.10500476
ズッカーマン数
-
0 名前：nakasuido：2021/05/12 12:59
-
LET s=1
FOR a=1 TO 1000000
LET aa$=STR$(a)
LET b=LEN(aa$)
LET product=1
FOR r=1 TO b
LET product=product*VAL(mid$(aa$,r,1))
NEXT R
WHEN EXCEPTION IN
IF MOD(a,product)=0 THEN PRINT s; a
IF MOD(a,product)=0 THEN LET s=s+1
USE
END WHEN
LET product=1
NEXT A
END