Написать программу, которая для заданной строки s удаляет из нее последовательность символов, рассположенных между двумя запятыми(считается, что в строке ровно две запятые)

Var   m: string; begin   readln(m);   writeln(m.remove(m.indexof(',') + 1, m.lastindexof(',') - m.indexof(',') - 1)); end.если запятые убрать надо тоже, единички убери: )

ответ:

program stringab;

var

  a, b: string;

  c: char;

  i, p: integer;

  bb: boolean;

begin

  writeln ('введите строки a и b: ');

  readln (a);

  readln (b);

  bb : = true;

  for i : = 1 to length (b) do begin

    c : = b [i];

    p : = pos (c, a);

    if p > 0 then begin

      delete (a, 1, p);

    end else begin

      bb : = false;

      break;

    end;

  end;

  if bb then

    writeln ('можно получить')

  else

    writeln ('нельзя получить');

  readln;

end.

ответ:

вот

объяснение:

книга написана одним из крупнейших зарубежных специалистов в области программирования. она посвящена вопросам конструирования корректных и изящных программ для эвм. в ней предлагается методика формального вывода программы из постановки . при этом прослеживается развитие алгоритмов вплоть до создания программ. материал излагается в форме остроумных и поучительных по программированию. книга представляет значительный интерес для широкого круга программистов.

книга вышла в издательстве “мир” в 1978 году.