Символы в скобках заменить на точки

@Fizalina · Регистрация: 31.10.2015

Author24 — интернет-сервис помощи студентам

Дана символьная строка. Заменить в ней последовательности символов, расположенные между
открывающими и закрывающими скобками, на точки. Предполагается, что внутри пары скобок
вложенных скобок нет.

@vint-81 · 18.12.2015, 09:25

пара вариантов

Pascal

var s,s1:string;i:integer;
begin
 write('s: ');readln(s);s1:='';
 while (pos('(',s)>0) and (pos(')',s)>0) do
  begin
   for i:=pos('(',s)+1 to pos(')',s)-1 do  s[i]:='.';
   s1:=s1+copy(s,1,pos(')',s));
   delete(s,1,pos(')',s))
  end;
 s1:=s1+s;
 writeln('s'':',s1)
end.

Pascal

var s:string;
function s1(x:string):string;
var i:integer;
 begin
  if (pos('(',x)>0)and(pos(')',x)>0)
   then
    begin
     for i:=pos('(',x)+1 to pos(')',x)-1 do x[i]:='.';
     s1:=copy(x,1,pos(')',x))+s1(copy(x,pos(')',x)+1,length(x)-pos(')',x)+1));
    end
   else s1:=x
 end;
begin
 write('s: ');readln(s);
 write('s'':',s1(s));
end.

@Fizalina 0 / 0 / 0 Регистрация: 31.10.2015 Сообщений: 9
		1
	Символы в скобках заменить на точки 17.12.2015, 22:11. Показов 1349. Ответов 1 Метки нет (Все метки) Дана символьная строка. Заменить в ней последовательности символов, расположенные между открывающими и закрывающими скобками, на точки. Предполагается, что внутри пары скобок вложенных скобок нет. 0

	18.12.2015, 09:25

Символы в скобках заменить на точки

Решение