format 2 int 8Y3I0S
D0Cy^_
input x S$3JMFA
y=x/2 r/sNrB1U"y
z=10*Y sGb{9.WK
__@BUK{ q
a$=$str(z) G`zm@QL
b$=$rightstring(a$,1) G
j1_!.T
c=sval(b$) l@\FWWQ
if c==0 P$sxr
print "x 是偶数" +3`alHUK
else eq" ]%s
print "x 是奇数" w*!aZ,P
endif ]d`VT)~vje
print x," ",y," ",z," ",a$," ",b$," ",c jIF
|P-