int Perev(int m)
    {
        char buff[255];
        int  n = 0, z = 0, all = strlen(str), k = 0;

        while (str[n])
            if (m == 0)
            {
                while (str[n] != ' ')
                {
                    buff[n] = str[n];
                    ++n;
                }
                break;
            }
            else
            {
                if (str[n] == ' ') --m;
                ++n;
            }
        if (m > 0)
        {
            std::cout << "net slov";
            return 0;
        }
        else buff[n + 1] = '\0';

        k = n;
        m = strlen(buff);
        n = 0;

        while (n < all)
        {
            for (int i = k; (str[n] != ' ') && (i >= 0); --i)
            {
                if (str[n] == buff[i])
                {
                    n++;
                    m--;
                }
                else
                {
                    while (str[n] != ' ') n++;
                    m = strlen(buff);
                    break;
                }
                if (m == 0)
                {
                    m = strlen(buff);
                    z++;
                    n++;
                }
            }
            while (str[n] == ' ')
                n++;
        }
        std::cout << "Kol-vo " << z;
        return z;
    }