|
ゴンとも |
|
30分前から寝てしまいましたが十進basicで一発正解!
プログラムですぐにできる問題だけに残念でした。 FOR a=0 TO 9 FOR b=0 TO 9 IF ((b=a) OR (b=a+1) OR (a=b+1) OR (b=a+9) OR (a=b+9)) THEN GOTO 30 FOR c=0 TO 9 IF ((c=a) OR (c=b) OR (c=b+1) OR (b=c+1) OR (c=b+9) OR (b=c+9)) THEN GOTO 20 FOR d=0 TO 9 IF ((d=a) OR (d=b) OR (d=c) OR (d=c+1) OR (c=d+1) OR (d=c+9) OR (c=d+9)) THEN GOTO 10 LET x=1000*a+100*b+10*c+d print x 10 NEXT d 20 NEXT c 30 NEXT b 40 NEXT a END |
|
豊川市
11月23日（木） 1:18:15
MAIL:fttnm528@ybb.ne.jp 28738 |