O0033
* `; k( J) S6 y3 I/ h, B7 q#200=0
( _" B) g0 o8 Z/ Y* b' S# F% G#10=-3
* L5 H. T8 X/ t# I* s#1=-10" p7 r3 H9 }% T' W3 X$ @7 T
#102=10000
/ n4 I. E5 P! w" }G97M3S400$ D; ]* n" D9 d
T0303
# ^/ J4 y( ~( h9 cG0X52.Z2.. ^; \) G0 L `
G99
- f7 l8 A: h3 G5 I
% d+ y) H! t, a* O) D7 }0 x5 ^IF[#200EQ0]THEN#200=12345/ ^0 T) A1 b& V$ \; u
WHILE[#102GE1]DO1) b0 m8 c6 x# m# l
N1#30=#200/#102
- q# o* _ H8 K0 R#100=FIX[#30]
& d8 B9 ~$ M. T3 B#200=#200-#100*#102$ T( R1 T0 j, r" E- b: t
#102=#102/10' ~; H# b* z" N9 k1 w- J
IF[#100NE0]GOTO10% z% Y" }( y( r% C8 @
END11 J i1 v7 A% a6 s w
4 T, A6 y' X( \9 \( L6 F9 BIF[#102LT1]GOTO20
4 w0 R& u' H! K/ k
1 p# H, L7 q* {. V+ h: m( aN10#101=#100*#1-#3
6 z! D2 T3 m( ~1 } z2 i* u, SG1Z#101F1.( ~# q& z f$ L6 ]! B. a. I
X44.F0.05
! T& L9 a9 W' l4 {G0X52.
5 j9 U7 h% U. i& p h6 ?, AGOTO1- `* J3 o! u8 N2 l. j
3 G6 C' f6 e! |: q) }
N20G0Z100.* ]% Q7 Q/ G. K0 W" u( h
M5
# R0 g2 T2 J1 i7 e* y4 iM30
# t3 c6 ?9 M [% }! v0 h7 G$ Y0 t见笑了!哈哈!) D8 w1 P1 I$ F: t5 L
我这个程序容错性差,求改进!; i# |- R$ h# A* H
, ?5 R: L2 S. Q& b& s5 y6 ~4 h |