tbasic7.dat

ACM国际大学生程序设计竞赛(英文全称:ACM International Collegiate Programming Contest（ACM-ICPC或ICPC）是由美国计算机协会（ACM）主办的

1 LET A=1
2 LET B=1
3 LET N=9
4 LET T=1
5 LET S=0
6 LET C=0
7 GOTO 19
8 PRINT C
9 LET B=B+T
10 IF B>N
11 GOTO 13
12 GOTO 7
13 LET B=T+S
14 LET A=A+T
15 IF A>N
16 GOTO 18
17 GOTO 7
18 STOP
19 LET C=0
20 LET W=A+S
21 LET U=1
22 LET C=C+B
23 LET U=U+T
24 IF U>A
25 GOTO 8
26 GOTO 22