Удвоить вхождение некоторой буквы в текст. Например, при удваивании буквы ‘а’ текст ‘ трава ’ должен превратиться в текст ‘траваа’.
Ответы
Ответ дал:
0
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.
Похожие вопросы
2 года назад
2 года назад
7 лет назад
7 лет назад
10 лет назад
10 лет назад
10 лет назад