format 2 int Ew>~a8!Fq
G&.d)NfE
input x
!8we8)7
y=x/2 xcw%RUC-
z=10*Y y{YXf!AS
//~POm
a$=$str(z) m**0rpA
b$=$rightstring(a$,1) y-%nJD$
c=sval(b$) 2rF?Q?$,B
if c==0 Sy4
mZ}:
print "x 是偶数" ^@ M [t<
else @X
K>
print "x 是奇数" c]e`m6
endif r>E\Cco
print x," ",y," ",z," ",a$," ",b$," ",c g'KzdG`O0