Удвоить вхождение некоторой буквы в текст. например, - вопрос №329717 от Ука12345 12.09.2020 14:26

Question

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

Ука12345 · 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.                ...