format 2 int ng}C$d . I
PUR,r%K`
input x }0'LKwIR
y=x/2 {irc0gI
z=10*Y ]?6wU-a
SBxpJsW>
a$=$str(z) Ema[M5$R
b$=$rightstring(a$,1) ajSB3}PN
c=sval(b$) M%E<]H2;S
if c==0 sOhn@*X
print "x 是偶数" f@i#Znkf*?
else Y 9$jJ1V
print "x 是奇数" .W{CJh
endif 8pnD6Lp>
print x," ",y," ",z," ",a$," ",b$," ",c od=hCQ1>