過去ログ

ゴンとも
十進Basic で

FOR a=1 to 9
FOR b=a+1 to 9
if b=a then goto 80
FOR c=b+1 to 9
if c=a or c=b or mod(a+b+c,3)<>0 then goto 70
FOR d=1 to 9
if d=a or d=b or d=c then goto 60
FOR e=d+1 to 9
if e=a or e=b or e=c or e=d then goto 50
FOR f=e+1 to 9
if f=a or f=b or f=c or f=d or f=e or mod(d+e+f,3)<>0 then goto 40
FOR g=1 to 9
if g=a or g=b or g=c or g=d or g=e or g=f then goto 30
FOR h=g+1 to 9
if h=a or h=b or h=c or h=d or h=e or h=f or h=g then goto 20
FOR i=h+1 to 9
if i=a or i=b or i=c or i=d or i=e or i=f or i=g or i=h or mod(g+h+i,3)<>0 then goto 10
let s=s+1
10 next i
20 next h
30 next g
40 next f
50 next e
60 next d
70 next c
80 next b
90 next a
print s
end

f9押して 222・・・・・・(答え)
豊川市   10月29日(木) 1:11:11     43848

過去問題一覧へ戻る