|
ゴンとも |
|
#51348
プログラムでやると以下で十進Basic で print time$ for a1=0 to 1 for a2=0 to 1 if a1=0 and a2=0 then goto 430 for a3=0 to 1 if (a2=0 and a3=0) or (a1=1 and a2=1 and a3=1) then goto 420 for a4=0 to 1 if (a3=0 and a4=0) or (a2=1 and a3=1 and a4=1) then goto 410 for a5=0 to 1 if (a4=0 and a5=0) or (a3=1 and a4=1 and a5=1) then goto 400 for a6=0 to 1 if (a5=0 and a6=0) or (a4=1 and a5=1 and a6=1) then goto 390 for a7=0 to 1 if (a6=0 and a7=0) or (a5=1 and a6=1 and a7=1) then goto 380 for a8=0 to 1 if (a7=0 and a8=0) or (a6=1 and a7=1 and a8=1) then goto 370 for a9=0 to 1 if (a8=0 and a9=0) or (a7=1 and a8=1 and a9=1) then goto 360 for a10=0 to 1 if (a9=0 and a10=0) or (a8=1 and a9=1 and a10=1) then goto 350 for a11=0 to 1 if (a10=0 and a11=0) or (a9=1 and a10=1 and a11=1) then goto 340 for a12=0 to 1 if (a11=0 and a12=0) or (a10=1 and a11=1 and a12=1) then goto 330 for a13=0 to 1 if (a12=0 and a13=0) or (a11=1 and a12=1 and a13=1) then goto 320 for a14=0 to 1 if (a13=0 and a14=0) or (a12=1 and a13=1 and a14=1) then goto 310 for a15=0 to 1 if (a14=0 and a15=0) or (a13=1 and a14=1 and a15=1) then goto 300 for a16=0 to 1 if (a15=0 and a16=0) or (a14=1 and a15=1 and a16=1) then goto 290 for a17=0 to 1 if (a16=0 and a17=0) or (a15=1 and a16=1 and a17=1) then goto 280 for a18=0 to 1 if (a17=0 and a18=0) or (a16=1 and a17=1 and a18=1) then goto 270 for a19=0 to 1 if (a18=0 and a19=0) or (a17=1 and a18=1 and a19=1) then goto 260 for a20=0 to 1 if (a19=0 and a20=0) or (a18=1 and a19=1 and a20=1) then goto 250 for a21=0 to 1 if (a20=0 and a21=0) or (a19=1 and a20=1 and a21=1) then goto 240 for a22=0 to 1 if a1+a2+a3+a4+a5+a6+a7+a8+a9+a10+a11+a12+a13+a14+a15+a16+a17+a18+a19+a20+a21+a22=>22 then goto 230 if (a21=0 and a22=0) or (a20=1 and a21=1 and a22=1) then goto 230 FOR a23=0 TO 1 if a1+a2+a3+a4+a5+a6+a7+a8+a9+a10+a11+a12+a13+a14+a15+a16+a17+a18+a19+a20+a21+a22+a23=>23 then goto 220 if (a22=0 and a23=0) or (a21=1 and a22=1 and a23=1) then goto 220 FOR a24=0 TO 1 IF a1+a2+a3+a4+a5+a6+a7+a8+a9+a10+a11+a12+a13+a14+a15+a16+a17+a18+a19+a20+a21+a22+a23+a24=>24 THEN GOTO 210 if (a23=0 and a24=0) or (a22=1 and a23=1 and a24=1) then goto 210 for a25=0 to 1 IF a1+a2+a3+a4+a5+a6+a7+a8+a9+a10+a11+a12+a13+a14+a15+a16+a17+a18+a19+a20+a21+a22+a23+a24+a25=>24 THEN GOTO 200 if (a24=0 and a25=0) or (a23=1 and a24=1 and a25=1) then goto 200 for a26=0 to 1 IF a1+a2+a3+a4+a5+a6+a7+a8+a9+a10+a11+a12+a13+a14+a15+a16+a17+a18+a19+a20+a21+a22+a23+a24+a25+a26=>24 THEN GOTO 190 if (a25=0 and a26=0) or (a24=1 and a25=1 and a26=1) then goto 190 for a27=0 to 1 IF a1+a2+a3+a4+a5+a6+a7+a8+a9+a10+a11+a12+a13+a14+a15+a16+a17+a18+a19+a20+a21+a22+a23+a24+a25+a26+a27=>24 THEN GOTO 180 if (a26=0 and a27=0) or (a25=1 and a26=1 and a27=1) then goto 180 for a28=0 to 1 IF a1+a2+a3+a4+a5+a6+a7+a8+a9+a10+a11+a12+a13+a14+a15+a16+a17+a18+a19+a20+a21+a22+a23+a24+a25+a26+a27+a28=>24 THEN GOTO 170 if (a27=0 and a28=0) or (a26=1 and a27=1 and a28=1) then goto 170 for a29=0 to 1 IF a1+a2+a3+a4+a5+a6+a7+a8+a9+a10+a11+a12+a13+a14+a15+a16+a17+a18+a19+a20+a21+a22+a23+a24+a25+a26+a27+a28+a29=>24 THEN GOTO 160 if (a28=0 and a29=0) or (a27=1 and a28=1 and a29=1) then goto 160 for a30=0 to 1 IF a1+a2+a3+a4+a5+a6+a7+a8+a9+a10+a11+a12+a13+a14+a15+a16+a17+a18+a19+a20+a21+a22+a23+a24+a25+a26+a27+a28+a29+a30=>24 THEN GOTO 150 if (a29=0 and a30=0) or (a28=1 and a29=1 and a30=1) then goto 150 for a31=0 to 1 IF a1+a2+a3+a4+a5+a6+a7+a8+a9+a10+a11+a12+a13+a14+a15+a16+a17+a18+a19+a20+a21+a22+a23+a24+a25+a26+a27+a28+a29+a30+a31=>24 THEN GOTO 140 if (a30=0 and a31=0) or (a29=1 and a30=1 and a31=1) then goto 140 for a32=0 to 1 IF a1+a2+a3+a4+a5+a6+a7+a8+a9+a10+a11+a12+a13+a14+a15+a16+a17+a18+a19+a20+a21+a22+a23+a24+a25+a26+a27+a28+a29+a30+a31+a32=>24 THEN GOTO 130 if (a31=0 and a32=0) or (a30=1 and a31=1 and a32=1) then goto 130 for a33=0 to 1 IF a1+a2+a3+a4+a5+a6+a7+a8+a9+a10+a11+a12+a13+a14+a15+a16+a17+a18+a19+a20+a21+a22+a23+a24+a25+a26+a27+a28+a29+a30+a31+a32+a33=>24 THEN GOTO 120 if (a32=0 and a33=0) or (a31=1 and a32=1 and a33=1) then goto 120 for a34=0 to 1 IF a1+a2+a3+a4+a5+a6+a7+a8+a9+a10+a11+a12+a13+a14+a15+a16+a17+a18+a19+a20+a21+a22+a23+a24+a25+a26+a27+a28+a29+a30+a31+a32+a33+a34=>24 THEN GOTO 110 if (a33=0 and a34=0) or (a32=1 and a33=1 and a34=1) then goto 110 for a35=0 to 1 IF a1+a2+a3+a4+a5+a6+a7+a8+a9+a10+a11+a12+a13+a14+a15+a16+a17+a18+a19+a20+a21+a22+a23+a24+a25+a26+a27+a28+a29+a30+a31+a32+a33+a34+a35=>24 THEN GOTO 100 if (a34=0 and a35=0) or (a33=1 and a34=1 and a35=1) then goto 100 for a36=0 to 1 IF a1+a2+a3+a4+a5+a6+a7+a8+a9+a10+a11+a12+a13+a14+a15+a16+a17+a18+a19+a20+a21+a22+a23+a24+a25+a26+a27+a28+a29+a30+a31+a32+a33+a34+a35+a36=>24 THEN GOTO 90 if (a35=0 and a36=0) or (a34=1 and a35=1 and a36=1) then goto 90 for a37=0 to 1 IF a1+a2+a3+a4+a5+a6+a7+a8+a9+a10+a11+a12+a13+a14+a15+a16+a17+a18+a19+a20+a21+a22+a23+a24+a25+a26+a27+a28+a29+a30+a31+a32+a33+a34+a35+a36+a37=>24 THEN GOTO 80 if (a36=0 and a37=0) or (a35=1 and a36=1 and a37=1) then goto 80 for a38=0 to 1 IF a1+a2+a3+a4+a5+a6+a7+a8+a9+a10+a11+a12+a13+a14+a15+a16+a17+a18+a19+a20+a21+a22+a23+a24+a25+a26+a27+a28+a29+a30+a31+a32+a33+a34+a35+a36+a37+a38=>24 THEN GOTO 70 if (a37=0 and a38=0) or (a36=1 and a37=1 and a38=1) then goto 70 for a39=0 to 1 IF a1+a2+a3+a4+a5+a6+a7+a8+a9+a10+a11+a12+a13+a14+a15+a16+a17+a18+a19+a20+a21+a22+a23+a24+a25+a26+a27+a28+a29+a30+a31+a32+a33+a34+a35+a36+a37+a38+a39=>24 THEN GOTO 60 if (a38=0 and a39=0) or (a37=1 and a38=1 and a39=1) then goto 60 for a40=0 to 1 if a1+a2+a3+a4+a5+a6+a7+a8+a9+a10+a11+a12+a13+a14+a15+a16+a17+a18+a19+a20+a21+a22+a23+a24+a25+a26+a27+a28+a29+a30+a31+a32+a33+a34+a35+a36+a37+a38+a39+a40=>24 then goto 50 if (a39=0 and a40=0) or (a38=1 and a39=1 and a40=1) then goto 50 for a41=0 to 1 IF a1+a2+a3+a4+a5+a6+a7+a8+a9+a10+a11+a12+a13+a14+a15+a16+a17+a18+a19+a20+a21+a22+a23+a24+a25+a26+a27+a28+a29+a30+a31+a32+a33+a34+a35+a36+a37+a38+a39+a40+a41=>24 THEN GOTO 40 if (a40=0 and a41=0) or (a39=1 and a40=1 and a41=1) then goto 40 for a42=0 to 1 if a1+a2+a3+a4+a5+a6+a7+a8+a9+a10+a11+a12+a13+a14+a15+a16+a17+a18+a19+a20+a21+a22+a23+a24+a25+a26+a27+a28+a29+a30+a31+a32+a33+a34+a35+a36+a37+a38+a39+a40+a41+a42=>24 then goto 30 IF (a41=0 AND a42=0) or (a40=1 and a41=1 and a42=1) THEN GOTO 30 for a43=0 to 1 if a1+a2+a3+a4+a5+a6+a7+a8+a9+a10+a11+a12+a13+a14+a15+a16+a17+a18+a19+a20+a21+a22+a23+a24+a25+a26+a27+a28+a29+a30+a31+a32+a33+a34+a35+a36+a37+a38+a39+a40+a41+a42+a43=>24 then goto 20 if (a42=0 and a43=0) or (a41=1 and a42=1 and a43=1) then goto 20 for a44=0 to 1 if a1+a2+a3+a4+a5+a6+a7+a8+a9+a10+a11+a12+a13+a14+a15+a16+a17+a18+a19+a20+a21+a22+a23+a24+a25+a26+a27+a28+a29+a30+a31+a32+a33+a34+a35+a36+a37+a38+a39+a40+a41+a42+a43+a44=>24 then goto 10 if (a43=0 and a44=0) or (a42=1 and a43=1 and a44=1) then goto 10 if a1+a2+a3+a4+a5+a6+a7+a8+a9+a10+a11+a12+a13+a14+a15+a16+a17+a18+a19+a20+a21+a22+a23+a24+a25+a26+a27+a28+a29+a30+a31+a32+a33+a34+a35+a36+a37+a38+a39+a40+a41+a42+a43+a44=23 then let s=s+1 10 next a44 20 next a43 30 next a42 40 next a41 50 next a40 60 next a39 70 next a38 80 next a37 90 next a36 100 next a35 110 next a34 120 next a33 130 next a32 140 next a31 150 next a30 160 next a29 170 next a28 180 next a27 190 next a26 200 next a25 210 next a24 220 next a23 230 next a22 240 next a21 250 next a20 260 next a19 270 next a18 280 next a17 290 next a16 300 next a15 310 next a14 320 next a13 330 next a12 340 next a11 350 next a10 360 next a9 370 next a8 380 next a7 390 next a6 400 next a5 410 next a4 420 next a3 430 next a2 440 next a1 print s PRINT TIME$ END f9押して 16:49:27 1582 16:49:30 この問題は2022年2月23日に正解しましたが プログラムでない解法(経路のサイズが大きくてもできる)で正解しましたが プログラムでも解法を書いてて実行時間は3秒程((2)だけで(1)はもっと時間が)・・・ あとADSLでのインターネットが終わる(3月31日)のですが 光に申し込むのが3月9日で昨日で4月6日に開通工事で間に合わず!! さらに光のインターネット料金がADSL(50メガ)よりも2倍か？ (電話で聞いたんですがよくわからない・・・)高額で・・・ |
|
豊川市
3月10日（木） 17:07:06
MAIL:fttnm528@ybb.ne.jp 51352 |