Дано текст, содержащий от 2 до 30 слов, в каждом из которых от 2 до 10 латинских букв, между соседними словами

#include <iostream>
using namespace std;
#define is_space(c) ((c) == ' ' || (c) == '\t' || (c) == '\n')
#define is_latin(c) ((c) >= 'a' && (c) <= 'z' || (c) >= 'A' && (c) <= 'Z')
 
size_t count_words(const char* s, bool (*cmp)(const char*, const char*)){
    size_t n = 0, i = 0;
    do {
        if(*s && !is_space(*s))
            ++i;
        else if(i > 0){
            if((*cmp)(s - i, s))
                ++n;
            i = 0;
        }
    } while(*s++ != '\0');
    return n;
}
 
int main(void){
    char s[] = "PascalABC perl java FortranX";
 
    size_t n = count_words(s, [] (const char* a, const char* b){
        const char* t = a;
        while((a != b) && is_latin(*a))
            ++a;
 
        size_t n = static_cast<size_t>(a - t);
        return (n == static_cast<size_t>(b - t)) && (n == 8 || n == 9);     
    });
 
    cout << "count: " << n << endl;
    cin.get();
    return 0;
}

#include <iostream>
#include <regex>
#include <string>
#include <iterator>
 
 
int main()
{
    std::string str(" PascalABC, AAAbbbcccF, java, FortranX ");
    std::regex reg("\\b[[:alpha:]]{8,9}\\b");
    std::sregex_iterator ib(str.begin(), str.end(), reg), ie;
    std::cout << std::distance(ib, ie) << std::endl;
}