七数平均值.txt

来自「简易却实用的编译器」· 文本 代码 · 共 10 行

10 rem calculate average of seven integers
20 input x
30 rem enter -9999 to stop
35 if x == -9999 goto 60
40 let t = t + x
50 goto 20
60 let t = t / 7
65 print t
70 end