format 2 int s([Wn)I
|&hU=J
o
input x O(OmGu4%
y=x/2 -0,4egj3
z=10*Y xT F=Y_
:nQp.N*p
a$=$str(z) ?|t/mo|K?
b$=$rightstring(a$,1) Kv+Bfh
c=sval(b$) !g0cC.'
if c==0 IvW@o1Q
print "x 是偶数" CJqc\I~
else KC&`x|
print "x 是奇数" ^@}#me@
endif ~r`Wr`]_ z
print x," ",y," ",z," ",a$," ",b$," ",c hr U :Wr