format 2 int ,BU;i%G&s
4>hHUz[_
input x ]k0
jmE
y=x/2 OU[<\d
z=10*Y |p11Jt[
#<im?
a$=$str(z) o\IMYT
b$=$rightstring(a$,1) x *Lt]]A
c=sval(b$) -u2i"I730
if c==0 B`5<sW
print "x 是偶数" jVj5 ; }
else :d36oiHKu
print "x 是奇数" Aw o)a8e
endif \hB BG8=&
print x," ",y," ",z," ",a$," ",b$," ",c >qjV{M