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

Формулировка задачи:

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


textual

Код к задаче: «Символы в скобках заменить на точки - Pascal ABC»

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.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

12   голосов, оценка 3.917 из 5

Источник
Похожие ответы