過去ログ

ゴンとも
#54895
十進Basic で

print time$
FOR a=1 TO 1
let s0=s0+1
FOR b=1 TO 9
IF ABS(a-b)=>2 THEN GOTO 90
let s1=s1+1
FOR c=1 TO 9
IF ABS(a+c-b)=>2 THEN GOTO 80
let s2=s2+1
FOR d=1 TO 9
IF ABS(a+c-b-d)=>2 THEN GOTO 70
let s3=s3+1
FOR e=1 TO 9
IF ABS(a+c+e-b-d)=>2 THEN GOTO 60
let s4=s4+1
FOR f=1 TO 9
IF ABS(a+c+e-b-d-f)=>2 THEN GOTO 50
let s5=s5+1
FOR g=1 TO 9
IF ABS(a+c+e+g-b-d-f)=>2 THEN GOTO 40
let s6=s6+1
FOR h=1 TO 9
IF ABS(a+c+e+g-b-d-f-h)=>2 THEN GOTO 30
let s7=s7+1
FOR i=1 TO 9
IF ABS(a+c+e+g+i-b-d-f-h)=>2 THEN GOTO 20
let s8=s8+1
FOR j=1 TO 9
IF ABS(a+c+e+g+i-b-d-f-h-j)=>2 THEN GOTO 10
let s9=s9+1
let s=s+1
10 NEXT j
20 NEXT i
30 NEXT h
40 NEXT g
50 NEXT f
60 NEXT e
70 NEXT d
80 NEXT c
90 NEXT b
100 NEXT a
print s0;",";s1;",";s2;",";s3;",";s4;",";s5;",";s6;",";s7;",";s8;",";s9
print time$
END

f9押して

02:22:29
1 , 2 , 3 , 5 , 8 , 13 , 21 , 34 , 55 , 89
02:22:29
豊川市   9月10日(木) 2:23:45     54896

過去問題一覧へ戻る