|
ゴンとも |
|
#52347
自己レスですみません!! >1000までなく10000でも100000でも1億でもプログラムなら >根こそぎできると思いますが・・・ >とりあえず1000まで十進Basic で 4桁で十進Basic で FOR l=1001 TO 9998 LET m=IP(l/1000) LET n=(l-1000*IP(l/1000)-100*FP(l/100))/100 LET o=(l-100*IP(l/100)-10*FP(l/10))/10 LET p=10*fp(l/10) LET q=IP((l+1)/1000) LET r=(l+1-1000*IP((l+1)/1000)-100*FP((l+1)/100))/100 LET s=(l+1-100*IP((l+1)/100)-10*FP((l+1)/10))/10 LET t=10*fp((l+1)/10) IF (m=n AND n=o AND o=p-1) THEN GOTO 10 IF (m=n AND n=o) OR (n=o AND o=p) OR (o=p AND p=q) OR (p=q AND q=r) THEN LET u=u+1 10 NEXT l PRINT u+2 END f9押して325より 10000(1万)までなら345でしょうか？ 誰かやった人がいたらお願いします!! とりあえず次は100000(10万)やってみます!! |
|
豊川市
4月6日（木） 19:39:29
MAIL:fttnm528@ybb.ne.jp 52350 |