Удвоить вхождение некоторой буквы в текст. Например, при удваивании буквы ‘а’ текст ‘...

Question

Удвоить вхождение некоторой буквы в текст. Например, при удваивании буквы ‘а’ текст ‘ трава ’ должен превратиться в текст ‘траваа’.

Answer 1

var

text,sym:string;

i:integer;

begin

readln(text);

readln(sym);

for i:=1 to length(text) do

 if text[i] = sym then text[i]:=text[i]+sym;

 writeln(text); 

 end.