Помогите пожалуйста!

Помогите пожалуйста!

Задать свой вопрос
1 ответ
Эту, очевидно конкурсную задачку, выдумали люди, незнакомые с способностями языка PascalABC.NET 3.3. Поэтому что на нем она решается буквально в одну строку и за время, необходимое, чтобы эту строку написать.

// PascalABC.NET 3.3, сборка 1625 от 17.01.2018
// Внимание! Если программа не работает, обновите версию!

begin
  ReadlnString.RegexReplace('[^A-Za-zА-Яа-яЁё0-9 ]','')
      .MatchValues('[A-ZА-ЯЁ][^A-ZА-ЯЁ]+').PrintLines;
end.

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт