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

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

Задать свой вопрос
Игорь Красильников
и ещё если есть возможность такую: заменить в данном тексте все слова ответ на вопрос
Татьяна Фокеева
А куда сбросить?
Елизавета Шершунова
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.
Виолетта Линг
текст: Это ответ к первому образцу и ответ ко второму примеруЭто вопрос к первому образцу и вопрос ко второму образцу
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 igt;length(s);
  writeln('новенькая строчка: ',s);
end.

ввод - вывод

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




, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт