|
ゴンとも |
|
水曜の夜はインターネットのadsl回線が2022年3月31日に終わるので
光回線を引くのに部屋の掃除をしてて・・・ 十進Basic で FOR a=0 TO 9 IF a<10 AND a=1 THEN LET s1=s1+1 FOR b=0 TO 9 IF (10*a+b>9 AND 10*a+b<100) AND ((a<>1 AND b=1) OR (a=1 AND b<>1)) THEN LET s2=s2+1 IF (10*a+b>9 AND 10*a+b<100) AND (a=1 AND b=1) THEN LET s3=s3+1 FOR c=0 TO 9 IF 10^2*a+10*b+c>99 AND ((a<>1 AND b<>1 AND c=1) OR (a<>1 AND b=1 AND c<>1) OR (a=1 AND b<>1 AND c<>1)) THEN LET s4=s4+1 IF 10^2*a+10*b+c>99 AND ((a<>1 AND b=1 AND c=1) OR (a=1 AND b<>1 AND c=1) OR (a=1 AND b=1 AND c<>1)) THEN LET s5=s5+1 IF 10^2*a+10*b+c>99 AND (a=1 AND b=1 AND c=1) THEN LET s6=s6+1 NEXT c NEXT b NEXT a PRINT s1;s2;s3;s4;s5;s6;s1+s2+2*s3+s4+2*s5+3*s6 END f9押して 1 17 1 225 26 1 300・・・・・・(答え) あと2022桁は FOR a=0 TO 9 IF a<10 AND a=1 THEN LET s1=s1+1 FOR b=0 TO 9 IF (10*a+b>9 AND 10*a+b<100) AND ((a<>1 AND b=1) OR (a=1 AND b<>1)) THEN LET s2=s2+1 IF (10*a+b>9 AND 10*a+b<100) AND (a=1 AND b=1) THEN LET s3=s3+1 FOR c=0 TO 9 IF (10^2*a+10*b+c>99 AND 10^2*a+10*b+c<711) AND ((a<>1 AND b<>1 AND c=1) OR (a<>1 AND b=1 AND c<>1) OR (a=1 AND b<>1 AND c<>1)) THEN LET s4=s4+1 IF (10^2*a+10*b+c>99 AND 10^2*a+10*b+c<711) AND ((a<>1 AND b=1 AND c=1) OR (a=1 AND b<>1 AND c=1) OR (a=1 AND b=1 AND c<>1)) THEN LET s5=s5+1 IF (10^2*a+10*b+c>99 AND 10^2*a+10*b+c<711) AND (a=1 AND b=1 AND c=1) THEN LET s6=s6+1 NEXT c NEXT b NEXT a PRINT s1;s2;s3;s4;s5;s6;s1+s2+2*s3+s4+2*s5+3*s6 END f9押して 1 17 1 173 23 1 242・・・・・・(答え) 2021年のラサールの問題も検索してやってみようかと思うも 検索する時間が・・・ |
|
豊川市
1月28日（金） 21:05:37
MAIL:fttnm528@ybb.ne.jp 51237 |