Ответ:
разрешено всё что не запрещено?
или запрещено всё что не разрешено?
запрещены информации об изготовлении или получении наркотиков, порн0графия, способы совершения сYицида и призывов к его совершению, призывы к разжиганию национальной розни, к военным действиям, информация предлагающая купить фальшивые документы, оружие, информация об изготовлении ядов, бомб и тому подобное, экстремизм, оскорбление чувств верующих.
// PascalABC.NET 3.0, сборка 1128
uses
System.Text.RegularExpressions;
begin
var s:='Пингвинёнок Пороро. Пороро - поросёнок';
Writeln(RegEx.Matches(s,'ро').Count) // количество 'ро'
end.
<u><em>Тестовое решение:</em></u>
5
// PascalABC.NET 3.0, сборка 1128
uses
System.Text.RegularExpressions;
begin
var s:='Пингвинёнок Пороро. Пороро - поросёнок';
var s1:=ReadLnString('Введите контекст для поиска:');
Writeln(RegEx.Matches(s,s1).Count)
end.
<u><em>Тестовое решение:</em></u>
Введите контекст для поиска: оро
3
Нужно:Вставить флешку перекинуть файл тадам и все) позже дам ответ)