過去ログ

ゴンとも
十進basicで
10桁の数をabcdefghij,2,3,1の個数をs,t,10-s-tとして
1の個数が奇数のものを求め全事象の3^10から引いて1の個数が偶数のものを求め
その差を計算すると

LET u=0
for a=1 to 3
for b=1 to 3
for c=1 to 3
for d=1 to 3
for e=1 to 3
for f=1 to 3
for g=1 to 3
for h=1 to 3
for i=1 to 3
for j=1 to 3
for s=0 to 10
for t=0 to 10
IF a*b*c*d*e*f*g*h*i*j=2^s*3^t AND MOD(10-s-t,2)<>0 THEN LET u=u+1
10 next t
20 next s
30 NEXT j
40 NEXT i
50 next h
60 next g
70 next f
80 NEXT e
90 next d
100 next c
110 next b
120 next a
PRINT ABS(3^10-2*u)
END

f9押して1・・・・・・(答え)
豊川市   1月17日(木) 1:46:40     40192

過去問題一覧へ戻る