Строка: Удвоить каждое вхождение символа C в строку S. - Turbo Pascal

Формулировка задачи:

Задано строка S и символ C. Удвоить каждое вхождение символа C в строку S.

Решение задачи: «Строка: Удвоить каждое вхождение символа C в строку S.»

Листинг программы

var
  s: string;
  c: char;
  i: integer;
begin
  readln(s);
  readln(c);
  for i:=length(s) downto 1 do
    if s[i]=c then insert(c,s,i);
  writeln(s);
end.

Объяснение кода листинга программы

В данном коде используется язык программирования Turbo Pascal. Он предназначен для выполнения различных задач, включая обработку строк. В данном случае, код выполняет следующую задачу: удваивает каждый символ в строке, если этот символ совпадает с символом C. Давайте разберем код по шагам:

Объявляются три переменные: s (строка), c (символ) и i (целое число).
Считывается строка s с помощью функции readln().
Считывается символ c с помощью функции readln().
Запускается цикл for, который начинается с i=длина(s) и продолжается до i>=1.
Внутри цикла проверяется, равен ли элемент строки s, на котором в данный момент выполняется цикл, символу c. Если это условие выполняется, то символ c вставляется в строку s, начиная с индекса i.
После завершения цикла, выводится измененная строка s с помощью функции writeln(). Таким образом, данный код удваивает каждый символ в строке, если этот символ совпадает с символом C.