25.12.2012, 07:09 | #1 (permalink) |
Member
Регистрация: 16.11.2012
Сообщений: 26
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Исправьте ошибку
a,b,c,i,j,k,g,x,l,h,r:integer; begin writeln('23); writeln('Â31'); writeln('32'); writeln('3é'); writeln('4êó'); readln(strl); x:=0; l:=0; j:= length (strl); for i:=1 to j do begin if ( strl[i]='(') then x:=x+1; if (str1[i]=')') then l:=l+1; end; r:abs(x-1); h:=(x+l-r) div 2; for g:=1 to h do begin for i:=1 to j do if (strl[i]=')') then begin b:=i; break; end; for k:= 1 to b do if (strl[k]='(') then a:=k; c:=b-a+1; {writeln('Проверка: ',strl);} delete (strl,a,c); end; write('Полученная строка:'); writeln(strl); end. помогите найти и исправить ошибку |
25.12.2012, 07:09 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Пожалуйста, потратьте минутку и прочитайте темы которые люди создавали ранее Найти ошибку Как исправить ошибку? Как убрать эту ошибку? |
25.12.2012, 09:15 | #3 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Прежде всего - соблаговолите снизойти до формулировки задачи, каковую призвана решить программа сия. Понимаю - лишний раз любимыми пальчиками шевельнуть - ну очень напряжно, но что уж тут поделаешь, коли у нас на форуме сплошь лентяи собрались, не желающие засесть за анализ программы и самостоятельно доискаться до ответа на вопрос "а что имел в виду автор?". Тем более, что заняться нам явно нечем.
И еще: вот это что за художество? Исправьте. А лучше всего - уберите кириллицу к такой-то бабушке, чтобы не было заморочек с кодировками. |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|