В данном тексте удвоить все буквы латинского алфавита.

@duman · Регистрация: 08.05.2012

C#

@Sergey-K · 16.05.2012, 20:11

C++

void __fastcall TForm1::Button1Click(TObject *Sender)
{
  AnsiString str = Memo1->Text;
  for(int i = 0; i < str.Length(); i++)
    if(isalpha(str[i + 1]) > 0)
      str.Insert(str[i + 1], ++i);
  Memo1->Text = str;
}

Опции темы

В данном тексте удвоить все буквы латинского алфавита.

Решение