<span>AB=10*161+11*160=160+11=171</span>
// 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
Const l:array[1..26] of char = ('a','b','c','d','e','h','i','j','k','l','m','n','o','p','q','r','f','s','t','u','v','w','x','i','y','z');
Var
s:string;
j,i,k:integer;
a:array [1..100] of integer;
begin
readln(s);
k:=0;
For i:=1 to length(s) do
for j := 1 to 26 do
If s[i] = l[j] then
begin
a[j]:=a[j]+1;
end;
for i:=1 to 26 do begin
if a[i]<>0 then
writeln(l[i], ' = ', a[i]);
end;
<span>end.</span>
Спосибо за вопрос щя на те ответ: данная сеть называется очень приторным иностранным словом, которое звучит так: «Кластер»
Дом место, где живет человек.
Ученики обязаны учить уроки каждый день.
На 8 марта мужчины дарят женщинам цветы.