format 2 int l[ k$O$jo
o5R40["
input x dW68lVWq_
y=x/2 YvX I
z=10*Y 3R {y68-S
ak[)+_k_
a$=$str(z) -^DB?j+
b$=$rightstring(a$,1) Ea?.HRxl
c=sval(b$) EM}z-@A>
if c==0 RUKSGj_NJ
print "x 是偶数" >Z%`&D~u
else 67?5Cv
print "x 是奇数" _!zY(9%
endif qZe"'"3M
print x," ",y," ",z," ",a$," ",b$," ",c M5uN1*