Форум » Обработка символьных строк » 2542 » Ответить
2542
Абдурахим: у меня ответ к 2542 19999 по программе var x, L, M: integer; s:string; begin assign(input, 'fff.txt'); readln(s); for x:=1 to length(s) do if s[x]=')' then begin l:=l+1; m:=m+1; if l=10000 then writeln(m) else m:=m+1; end; writeln end. с ответом не сходится
Ответов - 1
Поляков: У вас странные манипуляции с L и M. Вот правильное решение: [pre2] var x, count: integer; s: string; begin assign(input, '24-5.txt'); readln(s); for x:=1 to length(s) do if s[x]=')' then begin count := count + 1; if count = 10000 then writeln( x ); end; end. [/pre2]
полная версия страницы