format 2 int 5IP@_GV|
XeozRfk%J|
input x Oe0dC9H
y=x/2 lAAP V
z=10*Y *jl_,0g]
R/&C}6Gn
a$=$str(z) zU#
OjvNk
b$=$rightstring(a$,1) u]<`y6=&C
c=sval(b$) tp b(.`G
if c==0 ^ |>)H
print "x 是偶数" CM+wkU ?,
else eD N%p
print "x 是奇数" ?D]T|=EZY
endif &uJ7[m19z
print x," ",y," ",z," ",a$," ",b$," ",c u"zQh|