Автор | Сообщение |
|
Отправлено: 22.05.21 20:48. Заголовок: Добрый вечер, Конста..
Добрый вечер, Константин Юрьевич, коллеги! Не могу понять что в моей программе не так. Ответ должен быть 13, у меня же другой. Помогите, пожалуйста, найти ошибку. СПАСИБО!!!! Задача: Определите максимальную длину цепочки вида XYZXYZXYZ... из текстового файла 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.
|
|
|
Ответов - 2
[только новые]
|
|
|
| Администратор
|
Сообщение: 2815
|
|
Отправлено: 23.05.21 22:12. Заголовок: Когда вы нашли XYZ, ..
Когда вы нашли XYZ, следующий поиск нужно начинать через 3 позиции, то есть i нужно увеличивать на 3. Напрашивается цикл while.
|
|
|
|
Отправлено: 25.05.21 20:22. Заголовок: Спасибо...
Спасибо.
|
|
|
|