format 2 int 68koQgI[^
WNn[L=f
input x X6LhM
y=x/2 n*vTVt)dJ
z=10*Y E(QZ!'%K+m
@pF
fpHq?>
a$=$str(z) M#\ <
b$=$rightstring(a$,1) BR& Aq
c=sval(b$) kf%&d}2to
if c==0 }J ei$0x
print "x 是偶数" .>mH]/]m
else X(Y#9N"
print "x 是奇数" ]6$,IKE7
endif j4~7akG
print x," ",y," ",z," ",a$," ",b$," ",c }}^,7npU