Написать программу , для удаления части символов строки заключенную в скобки(вместе с ними). P.s. Строка может быть любая

@Sashka2 · Регистрация: 03.02.2013

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

Помогите пожалуйста.

@Any0019 · 05.06.2013, 19:30

Pascal

program skobki;
var s, k: string;
    z1, z2, x: integer;
begin
 readln(s);
 writeln(s);
 z1:=1;
 while s[z1]<>'(' do
 begin
  z1:=z1+1;
  if z1>=Length(s) then break;
 end;
 z2:=z1+1;
 while s[z2]<>')' do 
 begin
  z2:=z2+1;
  if z2>=Length(s) then break;  
 end;
 for x:= 1 to z1-1 do k:=k+s[x];
 for x:= z2+1 to Length(s) do k:=k+s[x];
 writeln(k);
end.

@Sashka2 0 / 0 / 1 Регистрация: 03.02.2013 Сообщений: 14
		1
	Написать программу , для удаления части символов строки заключенную в скобки(вместе с ними). P.s. Строка может быть любая 05.06.2013, 17:36. Показов 1497. Ответов 1 Метки нет (Все метки) Помогите пожалуйста. 0

	05.06.2013, 19:30

Написать программу , для удаления части символов строки заключенную в скобки(вместе с ними). P.s. Строка может быть любая

Решение