format 2 int 'R
nvQ""
l:14uWu|
input x \Z^Tk
y=x/2 .|/VD'xV"
z=10*Y Q[&CtM
/&o<kY
a$=$str(z) =p \eh?^
b$=$rightstring(a$,1) %TDY &@i=
c=sval(b$) |HQFqa<
if c==0 bI :cYn1
print "x 是偶数" r}|a*dh'R
else >8EmfjUoc
print "x 是奇数" XSktbk
endif "rcV?5?v~
print x," ",y," ",z," ",a$," ",b$," ",c zC WN,K`