|
|
問題
121212…と12を繰り返した数字が記入された紙テープがあります。
1桁の数として和を求めて、1,2,3,4,5,6,…となるように、はさみで順に切り取っていきます。
1,2,12,121,212,1212,…
このようにして20になるように切り取ったとき、その並びを求めなさい。
答え
1から始まる場合、1212121212121②は21となって不適である。
2から始まる場合、2121212121212は20となる。
よって、2121212121212
（終わり）
DATA 1,2
DIM D(0 TO 1)
MAT READ D
LET P=0
FOR N=1 TO 20
PRINT STR$(N);":";
LET T=N !シミュレーション
DO WHILE T>0
PRINT D(P);
LET T=T-D(P)
LET P=P+1
IF P>1 THEN LET P=0
LOOP
PRINT
NEXT N
END
別解
0:
1: 1
2: 2
3: 12
4: 121
5: 212
6: 1212
7: 12121
8: 21212
9: 121212
より、3ずつにまとめて、
?
□?
□□?
のような構図である。
LET N=20
DIM R$(0 TO 2),Q$(0 TO 2)
DATA "","1","2" !?
DATA "12","12","21" !□
MAT READ R$
MAT READ Q$
LET X=MOD(N,3)
FOR K=1 TO INT(N/3)
PRINT Q$(X);
NEXT K
IF X>0 THEN PRINT R$(X) ELSE PRINT
END
類題
123432123432123432123…と123432を繰り返した数字が記入された紙テープがあります。
1桁の数として和を求めて、1,2,3,4,5,6,7,8,9,…となるように、はさみで順に切り取っていきす。
1,2,3,4,32,123,43,2123,432,…
このようにして50になるように切り取ったとき、その並びを求めなさい。
答え
321234 321234 321234 32
|
|