Решить в паскале.дана строка символов р1, р2, - вопрос №277776312 от araruwolf 23.12.2022 11:07

Question

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

araruwolf · 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.