Введите строку. Преобразуйте строку таким образом, чтобы после каждой цифры "2" стояли...

Question

Введите строку. Преобразуйте строку таким образом, чтобы после каждой цифры "2" стояли три символа "!!!" Выведите преобразованную строку на экран. Pascal

Answer 1

Var s: string;
    i: integer;
begin
  write('строка:  ');    readln(s);
  i:=1;
  while i<=length(s) do<br>  begin
    if s[i]='2' then
    begin
      s:=copy(s,1,i-1)+'!!!'+
         copy(s,i+1,length(s)-i+3);
      i:=i+3;
    end;
    i:=i+1;
  end;
  writeln('новая строка:  ',s);
  end.