Дана строчка. Удалить те слова, которые содержат желая бы одну буковку

// PascalABC.NET 3.0, сборка 1128
begin
var s:=ReadLnString('Введите строчку:');
s.ToWords.Where(x-gt;Pos('о',x)=0).Println;
end.

Тестовое решение:
Введите строчку: А это у нас просто тестовая строчка такая
А у нас такая

Marija Zernova 2019-09-04 22:13:56

Метод строчки .ToWords разбивает её на отдельные слова.

Юрок Дайховский 2019-09-04 22:16:25

Премного благодарен

Егор Киримок 2019-09-04 22:24:04

Далее итог по сборочному потоку передается способу Where, который взят в этой версии из LINQ среды .Net

Терунян Алексей 2019-09-04 22:26:03

Это фильтр, доводом которого является - лямбда выражение

Дима Головенчиков 2019-09-04 22:30:32

Оно просит отобрать только те слова, для которых правильно условие: Функция поиска подстроки Pos обязана вернуть ноль

Юськаев Владик 2019-09-04 22:37:49

А оль она вернет, если не найдет подстроки 'о' в слове

Jevelina Krjazhikova 2019-09-04 22:40:36

Потому на выход попадают только слова, в которых нет ни одной буковкы "о". И дальше они по конвейеру попадают методу PrintLn, который посылает эти слова в выходной поток.

Ивинских Владислав 2019-09-04 22:45:14

Собственно, это все...

Мокрецова Катенька 2019-09-04 22:47:44

Просто Паскаль в заключительное время немножко "поумнел" )))

Олег Мануйло 2019-09-04 22:55:25

... и в этом плане большинство языков рядом с версией 3.0 сердито курят бамбук в сторонке.

О проекте

Дана строчка. Удалить те слова, которые содержат желая бы одну буковку

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