Question

9.65. Дано предложение. Определить:
а) число вхождений в него буквосочетания ро;
б) число вхождений в него некоторого буквосочетания из двух букв;
в) число вхождений в него некоторого буквосочетания.

Answer 1

// 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

Answer 2

Если нужно игнорировать регистр, следует писать Writeln(RegEx.Matches(s,s1,RegexOptions.IgnoreCase).Count)