format 2 int *.ri8
b~Op1p
input x 8*H-</ =
y=x/2 \^iJv~d
z=10*Y ~+A?!f;-J
Ps+0qqT*
a$=$str(z) L|qQZ=
b$=$rightstring(a$,1) rBkLwJ]
c=sval(b$) 5CueD]
if c==0 ~_QZiuq&
print "x 是偶数" M3o dyO(
else 7$<.I#x
print "x 是奇数" dd@^e)VZB
endif 1% ]|O
print x," ",y," ",z," ",a$," ",b$," ",c U>IllNd