|
O0033
4 Y& ?8 ]: q7 i3 J#200=04 w7 M) K% f A+ e1 l0 W" b5 W
#10=-3
; B }: ]$ Y5 N. B#1=-10- @6 x$ b6 ~6 U& J7 E
#102=10000( ~5 O5 G, |/ u v! v7 C3 W) Q3 M
G97M3S400. A1 j& A" _5 L6 X3 I- ?" ~
T0303
+ G( m& ^7 @; y- i2 Q. fG0X52.Z2. X/ c' R j1 @+ B J/ P. N
G99) ~6 k2 Q8 l h/ W% m# u1 o5 E
" Y& F0 G0 ~: u. uIF[#200EQ0]THEN#200=12345
; t \( u) O; \9 D( E" d1 _6 tWHILE[#102GE1]DO18 W1 g3 v% s& v q2 \$ b# K! R) a% m H! C
N1#30=#200/#102) d0 ?2 J% h# i1 L3 c
#100=FIX[#30]9 G' E+ Y; F- F/ ?# l
#200=#200-#100*#102! U0 }% g. C) N7 M
#102=#102/10
( p, y& p: N' o& ?1 oIF[#100NE0]GOTO10
. m4 [: Y* r7 s5 J* nEND1
j3 D$ g2 Y4 a3 Q; I- e2 ~. w5 w. H( A/ v0 X& Q
IF[#102LT1]GOTO20
7 }9 o+ ?& M* |, C, n+ ]8 f0 S" t" d* v& J
N10#101=#100*#1-#3. q8 A2 P% g; c4 M' `; x& f
G1Z#101F1. U* E; `8 X) ^6 v2 B
X44.F0.05
) Q' A( s- T- S! s( `- Y% c+ N* {G0X52.
; m/ P3 L! V: m! r, u3 g7 KGOTO1
0 S d: \/ {% F4 K- D
7 J) B' y' E6 \1 RN20G0Z100.5 t" V K9 t5 b5 H
M5
- H2 k% q1 L: t2 `1 O& z/ z: p8 x( PM30
5 X- q8 [7 |2 t. b$ J" l% z見笑了!哈哈!
* {6 I, ]/ ^9 h% Y$ Z我這個程序容錯性差,求改進(jìn)!4 j, E* l- J) H/ {- i( x+ @9 y
$ X7 X! t, l- z. D) S, z |
|