Форум » Обработка символьных строк » (№ 2538) (К. Амеличев) Не сходится ответ » Ответить
(№ 2538) (К. Амеличев) Не сходится ответ
inform_lesson: Добрый день. В номере 2538 в ответе 10, у меня -21. У кого ошибка ? Спасибо. [pre2] VAR S:STRING; I,MAX,K:INTEGER; BEGIN ASSIGN(INPUT,'24.TXT'); READLN(S); K:=0; FOR I:=1 TO LENGTH(S) DO IF ((S[ I]='(')AND(K MOD 2=0))OR ((S[ I]=')')AND(K MOD 2=1)) THEN BEGIN INC(K); IF K>MAX THEN MAX:=K; END ELSE IF S[ I]='(' THEN K:=1 ELSE K:=0; WRITE(MAX); END.[/pre2]
Ответов - 2
Поляков: Поиском проверяется, что 11 пар скобок в файле нет.
inform_lesson: Спасибо. Т.е. нужно writeln(max div 2)
полная версия страницы