Вставить в строку после каждой цифры заданную последовательность символов

@Wandmeer · Регистрация: 09.12.2014

Author24 — интернет-сервис помощи студентам

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

@JuriiMW · 02.06.2015, 06:17

Pascal

var
  S : String;
  i : Integer;
begin
  Write('S = '); ReadLn(S);
  for i := Length(S) downto 1 do
    if S[i] in [#48..#57] then
      Insert('!!!', S, i+1);
  WriteLn('Результат = ', S);
end.

@Wandmeer · 02.06.2015, 07:47 **[ТС]**

Спасибо.

@Wandmeer 0 / 0 / 0 Регистрация: 09.12.2014 Сообщений: 8
		1
	Вставить в строку после каждой цифры заданную последовательность символов 01.06.2015, 22:11. Показов 3876. Ответов 2 Метки нет (Все метки) Введите строку. преобразуйте строку таким образом, что после каждой цифры стояли "!!!". вывести преобразованную строку. 0

@Wandmeer 0 / 0 / 0 Регистрация: 09.12.2014 Сообщений: 8
	02.06.2015, 07:47 [ТС]	3
	Спасибо. 0

Вставить в строку после каждой цифры заданную последовательность символов

Решение