kasper121314
28.02.2022 23:43

Решить на паскале, нужно: дана строка, удалить текст находящийся в скобках (вместе со скобками) я тут начал делать, вот только с удалением у меня ничего не получается, напишите как можно сделать вот как я делал: program zd; uses crt; var s: string; i,l,n,t,y: integer; begin clrscr; writeln('введите строку'); readln(s); l: =length(s); for i: =1 to n do begin if s[i]='(' then t: =i; {здесь присваивал номер найденной скобки} if s[i]=')' then y: =i; {так же, как и выше} delete (s,t,i); {у меня получается, что он удаляет с открывающей скобки и всё что находится вправо, а левая часть до скобки остается нетронутой} end; writeln('данный результат =', s); readln; end.

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
rostikptashnik
01.07.2020 19:48
var a, b, i :integer;   
     s :string;
begin
   readln (s);
   a:=pos('(',s);
   b:=pos(')',s);
   if b=0 then write ('ERROR') else
   begin 
      while s[a]<>')' do delete (s,a,1);
      delete (s,a,1);
      writeln (s);
   end;
end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота