O0033
D. D7 a, J; ]4 s, ~#200=0* \% o- ~% g- q9 v l" ]
#10=-3! s: ~7 y2 { R
#1=-10
% K" U4 K* o& ^: R, o/ l3 ?" S( W#102=10000: U/ `+ h0 U4 O9 Z
G97M3S400$ J9 W( t7 l# u8 o$ Y5 V
T0303- Y2 n. a0 n/ F* O* s2 r- G; q
G0X52.Z2.
8 [5 c8 b& |* w8 j8 bG99
9 n# _8 D- [# [! L H
% v6 `: o* M" G e9 c; ]: [5 y4 AIF[#200EQ0]THEN#200=12345+ F/ x/ a0 ]3 n( U9 t. D1 P
WHILE[#102GE1]DO1
$ d; }( B) J7 P5 X& aN1#30=#200/#102% K, m9 H3 Y# e3 e7 ]5 A V
#100=FIX[#30]. h* I, N" P9 v; }( y- g
#200=#200-#100*#102
, i- S6 D* j6 L3 R- Q$ ]& A& E#102=#102/103 q/ v9 j w. E& y5 x; @
IF[#100NE0]GOTO10
/ ^& c0 B9 X/ d# _& ]1 |END13 P! H5 B- g: S* m8 N& t
. \) Y, \% ]3 q4 z. x
IF[#102LT1]GOTO200 ^% G) j- |' H* y# \
/ K$ f1 L" K- \0 E. CN10#101=#100*#1-#3
0 o& b5 f- h3 h! o. ?$ Q1 `G1Z#101F1." n' d0 }1 L" n0 r! j I# z
X44.F0.055 F- L9 U- i O& O; R6 g8 o0 |0 O
G0X52.
/ Q2 e; U/ P* g- j# nGOTO1
# D) Y' V" u) I# i2 k8 k/ J! t. G, _8 W
N20G0Z100.( Y1 i- N4 l8 b
M55 l9 m6 q& h# h
M30
% s1 L0 \! d n% y见笑了!哈哈!
, Y3 R$ u. ?3 b# I0 x1 s我这个程序容错性差,求改进!
4 [: |* c( f+ ]4 ~- c% r& E# N# }7 q9 f! v; t8 |; G
|