format 2 int Gnt!!1_8L
U.'@S8
input x "'B%.a#k
y=x/2 p'k+0=
z=10*Y )>5k'1
5qSZ>DZ
a$=$str(z) [B @j@&
b$=$rightstring(a$,1) <,4(3 >js
c=sval(b$) Jk`)`94I
if c==0 a&"*UJk<?
print "x 是偶數(shù)" f {Z%:H
else E_1I|$
print "x 是奇數(shù)" C}'="g^=sl
endif Q5n :f+
print x," ",y," ",z," ",a$," ",b$," ",c jsd]7C