format 2 int )KN]"<jB
ZX40-6#O
input x ztaSIMZ
y=x/2 cq1)b\ |
z=10*Y 4AN(4"$N
a+`;:tX,
a$=$str(z) D^H4]7wG@
b$=$rightstring(a$,1) R lmeZy4.
c=sval(b$) V_H0z
if c==0 @9h6D<?
print "x 是偶数" -+ Mh('K
else 9Qc=D"'
print "x 是奇数" _I#a`G
endif o:RO(oA0?
print x," ",y," ",z," ",a$," ",b$," ",c HVM(LHm=: