Ответ:
var s1,s2,c1,c2:string;
i:integer;
Begin
read(s1,c1,c2);
for i:= 1 to length(s1) do begin
s2:=s2 + s1[i];
if s1[i]=c1 then s2:=s2+c2;
end;
writeln(s2);
End.
В данной строке S вставить символ c1 после каждого вхождения символа c2.
— Правильный ответ на вопрос найдете ниже
13.04.2019 · 1