Паскаль. тема-строковые процедуры. задание: в исходном тексте приписать к каждой цифре...

Question

Паскаль. тема-строковые процедуры.
задание: в исходном тексте приписать к каждой цифре ноль.

Comments

и ещё если есть возможность такую: заменить в данном тексте все слова «ответ» на «вопрос»

---

А куда скинуть?

---

var s: string; n: integer;begin write('текст: '); readln(s); n:=pos('ответ',s); if n>0 then repeat delete(s,n,5); insert('вопрос',s,n); n:=pos('ответ',s); until n=0; writeln(s);end.

---

текст: Это ответ к первому примеру и ответ ко второму примеруЭто вопрос к первому примеру и вопрос ко второму примеру

Answer 1

var s: string;
    i: integer;
begin
  write('строка: ');  readln(s);
  i:=1;
  repeat
    if s[i] in ['0'..'9'] then 
    begin
      i:=i+1;
      insert('0',s,i);
    end;
    i:=i+1;
  until i>length(s);
  writeln('новая строка: ',s);
end.

ввод - вывод

строка: в корзине лежали 18 яблок и 15 апельсин
новая строка: в корзине лежали 1080 яблок и 1050 апельсин