format 2 int MHN?ZHC)
u<x2"0f
input x <eU28M?\
y=x/2 B3V:? #
z=10*Y ]I9Hbw
+.N3kH
a$=$str(z) Z^i=51
b$=$rightstring(a$,1) 6Q<^,`/T
c=sval(b$) Qp{gV Ys
if c==0 jk-hIl&
print "x 是偶数" d\aarhD8*
else ]:CU.M1
print "x 是奇数" 90)0\i+P
endif xOCHP|?
print x," ",y," ",z," ",a$," ",b$," ",c 7Y$#*
7