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

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 апельсин