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

1 名前：名無しさん：2022/03/01 18:01

rrrrrrrrr

2 名前：و：2022/07/24 07:05

まさか死亡じゃないだろな

3 名前：匿名さん：2023/09/16 22:30

steen.ramona@gmail.com
sylvia.heydon@yahoo.com
gillott.milagro@gmail.com
craven.blaine@yahoo.com
迷惑メール野郎、しにやがれ

4 名前：匿名さん：2024/03/14 07:00

steen.ramona@gmail.com
sylvia.heydon@yahoo.com
gillott.milagro@gmail.com
craven.blaine@yahoo.com
迷惑メール野郎、しにやがれ