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 апельсин
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
