Question

Напишите программу на Pascal

Определите количество слов X в предложении Y. X и Y – строковые переменные, вводятся с клавиатуры.

Answer 1

===== PascalABC.NET =====

begin

 var Y := ReadlnString('Введите предложение:');

 var X := ReadlnString('Что ищем?');

 Println('Таких найдено', Y.ToWords.Count(w -> w = x))

end.