format 2 int Qt39H@c|z~
+38P$Koz{r
input x 9xp
;$14
y=x/2 F+r6/e6a
z=10*Y d7gSkna`5c
mmK_xu~f28
a$=$str(z) C(+BrIS*
b$=$rightstring(a$,1) Tr!X2#)A!
c=sval(b$) 9?6$ 2I
if c==0 OaWq8MIZ-
print "x 是偶数" A+8b]t_k
else 8r,%! 70
print "x 是奇数" ["/x~\c'N
endif ri`|qy6! |
print x," ",y," ",z," ",a$," ",b$," ",c Jz b".A