Форум » Обработка символьных строк » Добрый вечер, Конста.. » Ответить
Добрый вечер, Конста..
Андреев: Добрый вечер, Константин Юрьевич, коллеги! Не могу понять что в моей программе не так. Ответ должен быть 13, у меня же другой. Помогите, пожалуйста, найти ошибку. СПАСИБО!!!! Задача: Определите максимальную длину цепочки вида XYZXYZXYZ... из текстового файла [pre2] var s1,s: string; i, count, maxCount: integer; begin assign(input, '24.txt'); readln(s); count:=0; maxCount:=0; for i:=1 to Length(s) do if copy (s,i,3)='XYZ' then begin count := count+1; if count > maxCount then maxCount := count; end else count := 0; writeln(maxCount); end.[/pre2]
Ответов - 2
Поляков: Когда вы нашли XYZ, следующий поиск нужно начинать через 3 позиции, то есть i нужно увеличивать на 3. Напрашивается цикл while.
Андреев: Спасибо.
полная версия страницы