По паскалю (⋋▂⋌) имеется текст, состоящий из слов, разделенных между собой пробелом. все буквы в тексте прописные. есть ли слова в предложении, которые начинаются с "лес". если да, то сколько их (по лесу ходит лесник. ответ: есть, два слова)
// PascalABC.Net 3.0, сборка 1066 begin var s:=ReadString('Введите текст :'); Write('Количество повторов "ЛЕС" равно ', s.Split(' ').Where(x->Copy(x,1,3)='ЛЕС').Count); end.
Тестовые примеры: Введите текст : ПО ЛЕСУ ХОДИТ ЛЕСНИК Количество повторов "ЛЕС" равно 2
Введите текст : ЛЕС, ПОДЛЕСОК, ПЕРЕЛЕСОК- ДОЖДЬ ЗАСТАЛ МЕНЯ В ПУТИ... Количество повторов "ЛЕС" равно 1
begin
var s:=ReadString('Введите текст :');
Write('Количество повторов "ЛЕС" равно ',
s.Split(' ').Where(x->Copy(x,1,3)='ЛЕС').Count);
end.
Тестовые примеры:
Введите текст : ПО ЛЕСУ ХОДИТ ЛЕСНИК
Количество повторов "ЛЕС" равно 2
Введите текст : ЛЕС, ПОДЛЕСОК, ПЕРЕЛЕСОК- ДОЖДЬ ЗАСТАЛ МЕНЯ В ПУТИ...
Количество повторов "ЛЕС" равно 1