Ре­ше­ние. По­счи­та­ем сколь­ко раз­лич­ных цифр в стро­ке, занесём эти дан­ные в мас­сив. Затем про­ве­рим есть ли цифры встре­ча­ю­щи­е­ся нечётное число раз, за­пом­ним какое число встре­ча­ет­ся нечётное число раз. Про­ве­рим, есть ли цифры встре­ча­ю­щи­е­ся более од­но­го раза или есть ли цифры встре­ча­ю­щи­е­ся один раз, при том, чтобы ноль не встре­чал­ся. Если цифр встре­ча­ю­щих­ся нечётное число раз более одной или усло­вие, опи­сан­ное в преды­ду­щем пред­ло­же­нии ложно вы­ве­дем "NO"; иначе вы­ве­дем "YES", а затем сна­ча­ла по­ло­ви­ну каж­дой из цифр, на­чи­ная с де­вят­ки, затем вы­ве­дем за­пом­нен­ную цифру, остав­шу­ю­ся по­ло­ви­ну цифр.

var a:array['0'..'9'] of integer;

c, c_odd: char;

i, k: integer;

f: boolean;

begin

for c:='0' to '9' do a[c]:=0;

read(с);

while c<>'.' do

begin

if c in ['0' .. '9'] then a[c] := a[c] + 1;

read(c);

end;

k := 0; {ко­ли­че­ство цифр, встре­ча­ю­щих­ся не­чет­ное число раз}

for c := '0' to '9' do

if a[c] mod 2 = 1 then

begin

k := k + 1;

c_odd := c;

end;

f := (a['0'] = 1);

for c := '1' to '9' do

if (a[c] > 1) or (a[c] = 1) and (a['0'] = 0) then f := true;

if (k > 1)or not f then writeln('NO') else

begin

writeln('YES');

for c := '9' downto '0' do

for i := 1 to a[c] div 2 do

write(c);

if k = 1 then

write(c_odd);

for c := '0' to '9' do

for i := 1 to a[c] div 2 do

write(c);

end

end.