format 2 int MHar9)$}
5$9g4
input x fn(<
<FA)
y=x/2 ]Y@Db5S$T
z=10*Y wq+% O,
{/d<Jm:
a$=$str(z) ^oaFnzJdf
b$=$rightstring(a$,1) {8`V5:
c=sval(b$) k@vN_Un
if c==0 0wL-Ak#v
print "x 是偶数" Awy-kou[C
else 0$Rl78>(
print "x 是奇数" CEbZj
z|
endif V/xGk9L~
print x," ",y," ",z," ",a$," ",b$," ",c .H;[s