format 2 int Y'`w.+9
r%JJ5Al.S
input x 9^<t0oY
y=x/2 34Q l7LQp[
z=10*Y &[}bHX/
r:2G 11[
a$=$str(z) +HQX]t:Y
b$=$rightstring(a$,1) (2Z-NVU#
c=sval(b$) 9H$#c_zrq
if c==0 ds,NNN<HW
print "x 是偶数" (\>3FwFHW|
else )"2)r{7:
print "x 是奇数" 0~Z>}(
endif HP^<2?K
print x," ",y," ",z," ",a$," ",b$," ",c |?hNl2m