ズッカーマン数
十進basicを使っています
ズッカーマン数をもとめています。
オプションタブより
microsoft 互換モードで実行
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 !ここからUSE END WHENの間は0除算のための例外処理です。
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