Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

Var s: string;
    i: integer;
begin
  write(строка:  );    readln(s);
  i:=1;
  while i<=length(s) do
  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.