format 2 int \nKpJ9!
;
*@lH%u
input x (c'kZ9&
y=x/2 G(*7hs
z=10*Y `\]gNn'Q
Or2J
a$=$str(z) >}p'E9J?r
b$=$rightstring(a$,1) rDEdMT
c=sval(b$) [3~mil3rO
if c==0 ;LhNz ()b
print "x 是偶数" U~}cib5W5
else %z_L}L
print "x 是奇数" rmq^P;At
endif {0ozpE*(
print x," ",y," ",z," ",a$," ",b$," ",c ?!{nN J