|
ゴンとも |
|
1000までなく10000でも100000でも1億でもプログラムなら
根こそぎできると思いますが・・・ とりあえず1000まで十進Basic で FOR a=10 TO 97 LET b=IP(a/10) LET c=10*FP(a/10) LET d=IP((a+1)/10) let e=10*fp((a+1)/10) IF (b=c AND c=d) OR (c=d AND d=e) THEN PRINT a;a+1 next a END f9押して 11 12 22 23 33 34 44 45 55 56 66 67 77 78 88 89 FOR e=100 TO 996 LET f=IP(e/100) LET g=(e-100*IP(e/100)-10*FP(e/10))/10 LET h=10*fp(e/10) LET i=IP((e+1)/100) LET j=(e+1-100*IP((e+1)/100)-10*FP((e+1)/10))/10 LET k=10*FP((e+1)/10) IF (f=g AND g=h) OR (g=h AND h=i) OR (h=i AND i=j) THEN PRINT e;e+1 NEXT e END f9押して 111 112 222 223 333 334 444 445 555 556 666 667 777 778 888 889 899 900 989 990 と999 1000 で20個・・・・・・(答え) |
|
豊川市
4月6日（木） 16:59:59
MAIL:fttnm528@ybb.ne.jp 52347 |