format 2 int ?"mZb#%
5[Vr {^)
input x dGYR
'x
y=x/2 1H-Y3G>jN
z=10*Y |y U!d
%
7b[sW|{
a$=$str(z) {&,p<5o
b$=$rightstring(a$,1) GIM/ T4!)
c=sval(b$) 2L~Vr4eHG
if c==0 7]vmtlL
print "x 是偶数" QQS*r}>
else VGc*aQYa
print "x 是奇数" q*UHzE:LI
endif miaH,hm
print x," ",y," ",z," ",a$," ",b$," ",c
]
#@:VR