// PascalABC.NET 3.0, сборка 1128
uses
System.Text.RegularExpressions;
begin
var s:='Пингвинёнок Пороро. Пороро - поросёнок';
Writeln(RegEx.Matches(s,'ро').Count) // количество 'ро'
end.
Тестовое решение:
5
// PascalABC.NET 3.0, сборка 1128
uses
System.Text.RegularExpressions;
begin
var s:='Пингвинёнок Пороро. Пороро - поросёнок';
var s1:=ReadLnString('Введите контекст для поиска:');
Writeln(RegEx.Matches(s,s1).Count)
end.
Тестовое решение:
Введите контекст для поиска: оро
3