format 2 int fZ$b8
5p (zhfuG
input x SXk.7bMV6
y=x/2 uZC=]Ieh
z=10*Y UJL2IF-x
4yxQq7
m,
a$=$str(z) ,WRm{v0f^
b$=$rightstring(a$,1) E`.xu>Yyj
c=sval(b$) D5,]E`jwu
if c==0 {Rkd;`Q`!
print "x 是偶数" z:>cQUYl
else wM+1/[7
print "x 是奇数" /W/e%.
endif Co1d44Q
print x," ",y," ",z," ",a$," ",b$," ",c 6Ijt2c'A}