Напишите, , программу, которая составляет из цифр введённой строки число-палиндром максимальной длины (которое читается одинаково слева направо и справа налево). если таких чисел несколько, нужно вывести минимальное из них. все имеющиеся цифры использовать не обязательно, но количество цифр в ответе должно быть максимально возможным. язык программирования паскаль входная строка содержит цифры (по крайней мере, одну) и, возможно, другие символы. программа должна вывести число-палиндром максимальной длины, которое можно составить из цифр входной строки. примеры входные данные for i: =99921 downto 2 выходные данные 29192

begin

  var s : = readlnstring;

  var s1 : = s.where(t -> t in ['0'..'9']).sorted.groupby(t -> t)

      .select(c -> (c.key, c.(t -> t[0]).toarray;

  var s2 : = s1.where(t -> t[1] > 1).select(t -> t[0] * (t[1] div 2))

      .joinintostring('').replace('0', '');

  var s3 : = s1.where(t -> t[1] = 1);

  if s3.count > 0 then s2 : = s2 + s3.select(t -> t[0]).first + s2.inverse

  else s2 : = s2 + s2.inverse;

  s2.println

end.

program rawtcherv;

function incpost(var i: integer): integer;

begin

  result: =i;

  inc(i);

end;

// из символов из входной строки составить палиндром с минимальным значением

function makeminpalindromemaxlength(const s: string): string;

var

  a: array[1..9] of byte;

  i,j,fino,cur,center: integer;

begin

  fillchar(a{%h-},sizeof(a),0);

  // вычисляем количество разных цифр, встреченных во введённой строке

  for i: =1 to length(s) do

    if s[i] in ['1'..'9'] then

      inc(a[ord(s[i])-ord('0')])

    else

      break;

  // максимальная длина палиндрома равна длине строки

  cur: =1;

  center: =-1;

  setlength(result,length(s));

  // составляем палиндром. в начало вставляем половину всех цифр от мин. к макс.

  for i: =1 to 9 do begin

    // поиск минимального числа, которое можно вставить в центр

    if (a[i] mod 2=1) and (center< 0) then

      center: =i;

    // вставляем в начало строки половину символов

    fino: =a[i] div 2;

    for j: =1 to fino do

      result[incpost(cur)]: =chr(i+ord('0'));

    // оставшуюся половину вставим потом

    a[i]: =fino;

  end;

  // вставляем центральный символ

  if center> 0 then

    result[incpost(cur)]: =chr(center+ord('0'));

  // вставляем в обратном порядке символы палиндрома

  for i: =9 downto 1 do begin

    for j: =1 to a[i] do

      result[incpost(cur)]: =chr(i+ord('0'));

  end;

  // восстанавливаем длину строки

  setlength(result,cur-1);

end;

procedure test(const s: string);

var

  s1: string;

begin

  s1: =makeminpalindromemaxlength(s);

  writeln('orig=',s);

  writeln('pal =',s1);

  writeln('diff=',length(s)-length(s1));

  writeln;

end;

begin

  test('9998888776665432111');

  readln;

end.

var  n : integer; beginreadln (n); case n of1, 2, 12 : writeln ('зима'); 3, 4, 5 : writeln ('весна'); 6, 7, 8 : writeln ('лето'); 9, 10, 11 : writeln ('осень'); end; end.

253(8)=10101011(2)

2в4(16)=1010110100(2)

48(16)=1001000(2)