В заданном тексте удалить все фрагменты, заключенные в круглые скобки (вместе со скобками)

@Sabes · Регистрация: 05.02.2016

В заданном тексте удалить все фрагменты, заключенные в круглые скобки (вместе со скобками). Текст вводить собственноручно.

@Puporev · 19.06.2016, 20:42

Pascal

uses crt;
var l,i,n,m:integer;
st:string;
begin
clrscr;
readln(st);
i:=length(st);
while i>=1 do
if st[i]='(' then
 begin
  n:=i;
  while (st[n]<>')')and(n<=length(st)) do n:=n+1;
  delete(st,i,n-i+1);
  i:=i-1;
 end
else i:=i-1;
write(st);
readln
end.

@Sabes 0 / 0 / 1 Регистрация: 05.02.2016 Сообщений: 33
		1
	В заданном тексте удалить все фрагменты, заключенные в круглые скобки (вместе со скобками) 19.06.2016, 19:53. Показов 2181. Ответов 1 Метки нет (Все метки) В заданном тексте удалить все фрагменты, заключенные в круглые скобки (вместе со скобками). Текст вводить собственноручно. __________________ Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь 0

Опции темы

В заданном тексте удалить все фрагменты, заключенные в круглые скобки (вместе со скобками)

Решение