Ответы
Ответ дал:
0
Эту, явно конкурсную задачу, придумали люди, незнакомые с возможностями языка 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.
// PascalABC.NET 3.3, сборка 1625 от 17.01.2018
// Внимание! Если программа не работает, обновите версию!
begin
ReadlnString.RegexReplace('[^A-Za-zА-Яа-яЁё0-9 ]','')
.MatchValues('[A-ZА-ЯЁ][^A-ZА-ЯЁ]+').PrintLines;
end.
Приложения:
![](https://st.uroker.com/files/1bc/1bc1f4023951743fb48af7c38592e848.jpg)
Вас заинтересует
1 год назад
1 год назад
2 года назад
8 лет назад
8 лет назад
8 лет назад