ズッカーマン数(十進basic)
十進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 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