Question

Дана строка S та символ C. Подвоїти кожне входження символу C в рядок S. Треба зробити в Paskal.

Answer 1

Ответ:

S.Replace(C, C + C)

Учтите, что это get-метод, он лишь возвращает новую строку, а не заменяет старую.

Answer 2

Ось приклад реалізації подвоєння кожного входження символу C у рядку S в мові Pascal:

pascalCopy code
program DoubleOccurrences;
var
  S: string;
  C: char;
  i: integer;
begin
  // Введення рядка S та символу C
  writeln('Введіть рядок S:');
  readln(S);
  writeln('Введіть символ C:');
  readln(C);

  // Подвоєння кожного входження символу C у рядку S
  for i := 1 to length(S) do
  begin
    if S[i] = C then
    begin
      S := copy(S, 1, i) + C + copy(S, i+1, length(S)-i+1);
      i := i + 1; // Збільшення лічильника, оскільки вставлено символ C
    end;
  end;

  // Виведення результату
  writeln('Результат:');
  writeln(S);
end.

Ця програма зчитує рядок S та символ C з клавіатури. Потім вона перебирає всі символи у рядку S і, якщо знаходить символ C, подвоює його вставляючи його перед собою. У результаті отримується рядок з подвоєними входженнями символу C.