Напишите программу на Pascal
Определите количество слов X в предложении Y. X и Y – строковые переменные, вводятся с клавиатуры.
Определите количество слов X в предложении Y. X и Y – строковые переменные, вводятся с клавиатуры.
More Questions From This User See All
Answers & Comments
Verified answer
===== PascalABC.NET =====
begin
var Y := ReadlnString('Введите предложение:');
var X := ReadlnString('Что ищем?');
Println('Таких найдено', Y.ToWords.Count(w -> w = x))
end.