format 2 int W$X@DXT=o
X>`5YdT~+
input x ^bjaa
y=x/2 @\|W#,~
z=10*Y ,GH;jw)P
|dxcEjcY_
a$=$str(z) &S8Pnb)d
b$=$rightstring(a$,1) pDg_^|
c=sval(b$) X/D^?BKC
if c==0 .9Y,N&V<H
print "x 是偶数" |<q9Ee
else K3WhF
print "x 是奇数" q|23l1PI
endif Gc'CS_L
print x," ",y," ",z," ",a$," ",b$," ",c ]S=AO/'