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

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

Question

Информатика: Напишите программу на pascal определите количество слов x в предложении y. x и y – строковые переменные, вводятся с клавиатуры.

yuostroi · Answer

PascalABC.NET

begin

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

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

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

end.