O0033
/ \+ Z1 B$ \+ m; \, c* K#200=0
7 _* a' _4 F9 c5 h! {% R#10=-3! ^2 a$ e2 j( h
#1=-10
+ G0 ^" h, G# r1 y, _3 T( Z#102=10000
7 c9 O$ Y2 a4 \G97M3S400
2 H9 k `; c2 N9 U" K" w+ Q2 `: YT03034 b# i" y; ~" j, j b
G0X52.Z2.
$ }4 N( k3 k* t7 D& Q/ yG99
# k# h( j# V+ ?! C9 V
( q' {9 C: ~2 c, x9 KIF[#200EQ0]THEN#200=12345, _/ @0 P) Y5 {. }: s/ Z$ L3 I
WHILE[#102GE1]DO1
7 e7 u- _- V+ V; H; ?3 WN1#30=#200/#102
2 z5 V8 B" g5 [% s/ p Z! P' |' D8 X#100=FIX[#30]
" @& h* w0 J* W# `; L, g#200=#200-#100*#102
6 F$ ^8 n# F- V4 k6 T( M#102=#102/10
8 c$ W, y% a& w: _ W2 wIF[#100NE0]GOTO10# F8 `( W- w3 ^
END1' S* R( `/ }- m+ b' a# b
M4 ?$ a7 Z0 [1 \: Q( `- j
IF[#102LT1]GOTO20
0 Y5 X* s. o9 ^, N' R" ]" L
- M3 ^* e5 I" H; ~1 t. h- aN10#101=#100*#1-#36 {. T( [8 t' y# ]8 J+ a9 T
G1Z#101F1.* V$ a. f5 S1 A
X44.F0.05
" v1 r& U7 u# [G0X52.
% S% m4 `7 K( I) I" E& m" X9 FGOTO1: {- h* I) p% G2 X/ F
+ X; I0 `; V; l7 u; ~
N20G0Z100.
: o. a1 c% o& F$ E u! A& wM51 D: y5 D! K, @5 e6 @# a# j
M30' J3 E! N) I: _
見笑了!哈哈!
# s2 m' w8 [- I5 \4 p1 x我這個程序容錯性差,求改進!4 `* @/ L6 q# @1 _( `1 c7 f
/ T% L. ]1 E q1 u7 i% N# B
|