Для груп­по­вых опе­ра­ций с фай­ла­ми ис­поль­зу­ют­ся маски имен фай­лов. маска пред­став­ля­ет собой по­сле­до­ва­тель­ность букв, цифр и про­чих до­пу­сти­мых в име­нах фай­лов сим­во­лов, в ко­то­рых также могут встре­чать­ся сле­ду­ю­щие сим­во­лы:
сим­вол «? » (во­про­си­тель­ный знак) озна­ча­ет ровно один про­из­воль­ный сим­вол.
сим­вол «*» (звез­доч­ка) озна­ча­ет любую по­сле­до­ва­тель­ность сим­во­лов про­из­воль­ной длины, в том числе «*» может за­да­вать и пу­стую по­сле­до­ва­тель­ность.
в ка­та­ло­ге на­хо­дит­ся 6 фай­лов:
adobe.xls
idol.xlsx
london.xls
adobe.xml
odor.xlsx
sdoba.xls
опре­де­ли­те, по какой из масок из них будет ото­бра­на ука­зан­ная груп­па фай­лов:
adobe.xls
idol.xlsx
odor.xlsx
sdoba.xls
1) ? do*.xls
2) ? do? *.xls*
3) *do*.x*
4) ? do? .xls*

//g++  5.4.0

#include <iostream>
#include <vector>
using namespace std;

template<class Iter, class T>
bool bin_s(const Iter begin, const Iter end, const T& val)
{
    Iter i = std::lower_bound(begin, end, val);

    if (i != end && !(val < *i))
        return true; 
    else
        return false;
}

int main()
{
    size_t N, M;
    cin >> N >> M;
    vector<int> v1(N);
    vector<int> v2(M);
   
    for (size_t i = 0; i < N; ++i) 
            cin >> v1[i];

    for (size_t i = 0; i < M; ++i) 
    {
        cin >> v2[i];
        if ( bin_s(v1.begin(), v1.end(), v2[i]) ) 
            cout << "YES" << endl;
        else 
            cout << "NO" << endl;
    }
}

{ ответ дан на языке Pascal }
{         Вариант a         }
PROGRAM Solution(INPUT, OUTPUT);

VAR
  Str: STRING;
  Str1: STRING;
  Str2: STRING;
  Str3: STRING;
  TempStr: STRING;

BEGIN
  WRITE('Введите строку: ');
  READLN(Str);
  Str1 := COPY(Str, 1, LENGTH(STR) DIV 3);
  Str2 := COPY(Str, LENGTH(STR) DIV 3 + 1, (LENGTH(STR) DIV 3));
  Str3 := COPY(Str, (LENGTH(STR) DIV 3) * 2 + 1, LENGTH(STR));

  WRITELN(Str2 + Str3 + Str1);

END.

{         Вариант b         }
PROGRAM Solution(INPUT, OUTPUT);

VAR
  Str: STRING;
  Str1: STRING;
  Str2: STRING;
  Str3: STRING;
  TempStr: STRING;

BEGIN
  WRITE('Введите строку: ');
  READLN(Str);
  Str1 := COPY(Str, 1, LENGTH(STR) DIV 3);
  Str2 := COPY(Str, LENGTH(STR) DIV 3 + 1, (LENGTH(STR) DIV 3));
  Str3 := COPY(Str, (LENGTH(STR) DIV 3) * 2 + 1, LENGTH(STR));

  WRITELN(Str3 + Str1 + Str2);

END.