Как открыть папку скажите даю

Для того, чтобы открыть любую папку на компьютере, необходимо:

1. Навести курсор на папку, которую вы собираетесь открывать

2. Дважды подряд нажать на левую кнопку мыши.

:

1. Навести курсор на папку, которую вы собираетесь открывать

2. Нажать 1 раз правой кнопкой мыши на папку

3. Навести на появившееся окно курсором и выбрать пункт "Открыть"

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.