format 2 int S5~(3I
)v
!>Q{co'
input x `!ZkWF6
y=x/2 y|3!E>Up
z=10*Y ^[v>B@p*{
}MtORqK
a$=$str(z) #*3 vE& p
b$=$rightstring(a$,1) +y][s{A
c=sval(b$) %m$t'?
if c==0 sR| /s3;
print "x 是偶数" :)Da^V
else Vc+~yh.)
print "x 是奇数" E&Sr+D aPD
endif E cd~H+
print x," ",y," ",z," ",a$," ",b$," ",c ~O
4@b/!4