Кому не сложно помочь с PascalABC?
Дана строка. Некоторые из слов взяты в круглые скобки. Написать программу, выводящую исходную строку без скобок.
Ответы
Ответ дал:
0
Var S : String;
Begin
Readln(S);
While Pos('(',S)>0 do Delete(S,Pos('(',S),1);
While Pos(')',S)>0 do Delete(S,Pos(')',S),1);
Writeln(S);
end.
Begin
Readln(S);
While Pos('(',S)>0 do Delete(S,Pos('(',S),1);
While Pos(')',S)>0 do Delete(S,Pos(')',S),1);
Writeln(S);
end.
Ответ дал:
0
спасибо!
Похожие вопросы
2 года назад
2 года назад
7 лет назад
9 лет назад
9 лет назад
10 лет назад
10 лет назад