format 2 int ?tY+P`S
W]#w4Fp!
input x W,NqevXo:
y=x/2 <wk
z=10*Y /M%>M]
t*9 gusmG
a$=$str(z) A!Cby!,
b$=$rightstring(a$,1) |dLr #+'az
c=sval(b$) nf^?X`g
if c==0 b"A,q
print "x 是偶数" @JXpD8jn
else ]CF-#q}'
print "x 是奇数" zI4rAsysL
endif @Suz-j(H
print x," ",y," ",z," ",a$," ",b$," ",c ":$4/b6