Преобразуйте строку таким образом, что после каждой 2 стояли "!!!" - Pascal

Формулировка задачи:

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

Код к задаче: «Преобразуйте строку таким образом, что после каждой 2 стояли "!!!" - Pascal»

textual
var s: string;
    i: integer;
begin
  writeln('Введите строку:');
  readln(s);
  for i := length(s) downto 1 do
    if s[i] = '2'
      then insert('!!!', s, i + 1);
  writeln('Преобразованная строка:');
  writeln(s);
  readln
end.

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

14   голосов, оценка 4.000 из 5


СОХРАНИТЬ ССЫЛКУ