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

Question

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

Гость

Ответ(ы) на вопрос:

Accepted Answer

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.