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

Есть ответ
18.12.2022
416

Ответ


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.

 

 

 

 

 

 

 

 


Если вы нашли правильное решение, вы можете поблагодарить нас начиная с 10 рублей.
Просто нажмите на кнопку "Подарить".
18.12.2022
Этот сайт использует cookies (Политика Cookies). Вы можете указать условия хранения и доступ к cookies в своем браузере.