format 2 int IX,/ZOZ|
1B}6 zJ
input x ;spuBA)[X
y=x/2 <G/O!02
z=10*Y !i2=zlpb[
W:ih#YW_F
a$=$str(z) It!PP1$
b$=$rightstring(a$,1) ehoDWO]S
c=sval(b$) h1:uTrtA
if c==0 HJ:s)As
print "x 是偶数" h)~KD%
else w$u=_
print "x 是奇数" u yzc"di
endif "W?k~.uw
print x," ",y," ",z," ",a$," ",b$," ",c -:h5Ky"