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

Question

Информатика

Дарюха

24 февраля, 16:58

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

+1

Ответы (1)

Знаете ответ на вопрос?

Дука · 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.