format 2 int W+XWS,(
=bC
+1
C
input x 0bNvmZ$
y=x/2 ^6 6!f 5^W
z=10*Y
gwZ<$6
Otn,UoeeB
a$=$str(z) }fpya2Xt
b$=$rightstring(a$,1) LzygupxY!
c=sval(b$) lG*Rw-?a
if c==0 &[.5@sv
print "x 是偶数" `S&a.k
else 'Pz%c}hJ
print "x 是奇数" UN I< r
endif ><%585
print x," ",y," ",z," ",a$," ",b$," ",c ,CO2d)}