Помогите написать программу в Turbo Pascale: удвоить вхождение некотой буквы в текст!!!!плз. Например мама - маамаа

Question

Помогите написать программу в Turbo Pascale: удвоить вхождение некотой буквы в текст!!!!плз. Например мама - маамаа

Sick fearless Знаток (330), закрыт 13 лет назад

Answer 1

Как вариант

for i:=Length(S) downto 1 do if S[ i ] = 'a' then Insert(S[ i ], S, i);

Answer 2

ты для чего в школу ходишь? может лучше бросить ее и сразу пойти тебе в армию?

Answer 3

sm Просветленный (32514) 13 лет назад

стучи в аську 169527143

Answer 4

ищешь позицию буквы и функцией Insert вставляешь.

Insert(source:string; var s:string;index:integer)

Процедура предназначена для вставки строки source в строку s, начиная с символа index этой строки.