Определите,по какой из масок будет выбрана указанная группа файлов abcd.txt, bcd.tel , bcd.txt, bc.tel 1)*bc*.? t* 2) ? bc? .t? ? 3)? bc? .t* 4)*bc*.t? ?

a3.  для групповых операций с файлами используются маски имен файлов. маска представляет собой последовательность букв, цифр и прочих допустимых в именах файлов символов, в которых также могут встречаться следующие символы: символ «? » (вопросительный знак) означает ровно один произвольный символ. символ «*» (звездочка) означает любую последовательность символов произвольной длины, в том числе «*» может задавать и пустую последовательность. определите, по какой из масок будет выбрана указанная группа файлов

abcd.txt,  bc.tel,  bcd.txt,  bc.tel

1)  *bc*.? t*  2)  ? bc? .t? ?   3)  ? bc? .t*  4)  *bc*.t? ?

решение:   имя файла состоит из идентификатора и расширения, разделенных точкой. идентификаторы указанной группы имеют разную длину, но в каждом идентификаторе присутствуют символы  bc, следовательно, исходя из определения шаблона «*» идентификатор маски можно задать в виде:   *bc*.  расширение у всей группы файлов состоит из трех символов, причем, первый символ после точки у всех четырех файлов – одинаковый – t. cледовательно, для расширения надо использовать шаблон «t? ? ». чтобы выбрать указанную группу файлов должна быть задана следующая маска:   *bc*.t? ?

var

  s : string;

  i : integer;

  f : boolean;

begin

  readln (s);

  writeln ('тут ', length (s), ' символов');

  f : = true;  

for i : = 1 to length (s) div 2 do

    if s[i] < > s[length (s) - i + 1] then f : = false;

  writeln ('это слово является перевертышем: ', f); //true/false

end.

var

  s : string;

  i, k, count : integer;

  c : char;

begin

  readln (s);

  count : = 0;

  for i : = 1 to length (s) do

    if s[i] < > ' ' then

    begin

        c : = s[i];

        k : = i + 1;

        break;

    end;

  for i : = k to length (s) do

    if (s[i] = ' ') and (c < > ' ') then

    begin

        if s[i - 1] = c then inc (count);

        c : = ' ';

    end

    else if c = ' ' then c : = s[i];

  if (c < > ' ' ) and (s[length (s)] < > ' ') and (c = s[length (s)]) then inc (count);

  writeln (count);

end.