Решить в паскале.дана строка символов р1, р2, рn. - вопрос №122777086 от Sopfia3333333333333 20.02.2023 23:10

Question

Информатика: Решить в паскале.дана строка символов р1, р2, рn. определить число вхождений в последовательность группы букв xyz . вырезать фрагмент из текста между первым и вторым вхождением группы символов xyz .

Sopfia3333333333333 · Answer

var
str: string;
sep: array of string := new string[1]('xyz');

begin
readln(str); //str := 'xzyfffxyzxyz xyzvv';
writeln(str.Split(sep, System.StringSplitOptions.None).Length - 1, ' вхождений');
writeln(str.Remove(str.IndexOf(sep[0]) + 3, str.LastIndexOf(sep[0]) - str.IndexOf(sep[0]) - 3));
end.