Форум » Обработка символьных строк » 24 задание Досрок » Ответить
24 задание Досрок
inform_lesson: Добрый день . Можно ли 24 задачу в досроке решать так ? Где ошибка ? [pre2] var s:string; k,i,max:integer; begin assign(input,'24.txt'); readln(s); for i:=1 to length(s) do begin if ((s[ i]='A')and (k mod 2=0))or(((s[ i]='B')or(s[ i]='C'))and(k mod 2=1)) then begin inc(k); if k>max then max:=k; end else k:=0; end; write(max div 2); end.[/pre2]
Ответов - 4
Поляков: Не вижу проблем. Своеобразная реализация конечного автомата.
inform_lesson: Спасибо за ответ. Но в итоге получаю 16, а в ответе 19.
Поляков: Проверяйте, какой файл вы берете. Я получил 19.
inform_lesson: Точно. Спасибо большое
полная версия страницы