format 2 int B@ \0b|
rvnm*e,
input x +&_n[;
y=x/2 ;tD?a7
z=10*Y 3+U2oI:I
JL:B4f%}B
a$=$str(z) 55>+%@$,a
b$=$rightstring(a$,1) Mwj7*pxUh
c=sval(b$) d]=>U^K
if c==0 .fhfO @
print "x 是偶数" OQuTM[W
else s\3ZE11L
print "x 是奇数" MD> E0p)
endif rHjR 4q
print x," ",y," ",z," ",a$," ",b$," ",c b%X}{/ n