Подпрограмма: Напечатать все слова последовательности, которые отличны от последнего слова...

#include <iostream>
using namespace std;
 
void f(string slovo,string word){
  if(slovo!=word){
  size_t i;
  i=slovo.length();
  slovo+=slovo;
  slovo.erase(0,i-1);
  slovo.erase(slovo.length()-1);
  cout<<slovo<<"\n";
  }
}
 
int main()
{
   char s[]="list,good,word,word.",*p ;
   string word,slovo;
 
   word=strrchr(s,',');
   word.erase(0,1);
   word.erase(word.length()-1,1);
   slovo=strtok(s,",.");
   f(slovo,word);
   do{
     p=strtok('\0',",.");
     if(p){slovo=p;
      f(slovo,word);}
      }while(p);
   system("pause");
   return 0;
}

#include <iostream>
using namespace std;
 
int main()
{
    string str("Berlin,Paris,Tokio,Moscow,Paris,Washington,Kiev,Paris.");
    auto it = str.rfind(',');
    
    string lastWord(str, it+1, str.size()-it-2);
 
    for (size_t beg = 0, end = str.find(','); end != string::npos; end = str.find(',', end)) {
        string temp(str, beg, end-beg);
        if (temp != lastWord) {
            char &ch1 = temp.at(0), &ch2 = temp.at(temp.size() - 1), tempChar;
            tempChar = ch1;
            ch1 = ch2;
            ch2 = tempChar;
            cout << temp << " ";
        }
        beg = ++end;
    }
    return 0;
}