Question

Написать в паскале программу: Заменить в введенной строке S все символы «ь» на подстроку «Мягкий знак!». Вывести строку на экран до и после замены.

Answer 1

begin

 var s := ReadlnString('Вводи:');

 s := s.Replace('ь', 'Мягкий знак!');

 s.Println;

end.

Пример работы прилагается

Answer 2

Конечно! Вот пример программы на языке Pascal, который заменяет все символы "ь" в введенной строке на подстроку "Мягкий знак!" и выводит строку до и после замены:

pascalCopy code
program ReplaceCharacter;

var
  S: string;
  replacedS: string;
  i: integer;

begin
  writeln('Введите строку:');
  readln(S);

  replacedS := '';

  for i := 1 to Length(S) do
  begin
    if S[i] = 'ь' then
      replacedS := replacedS + 'Мягкий знак!'
    else
      replacedS := replacedS + S[i];
  end;

  writeln('Исходная строка:');
  writeln(S);

  writeln('Строка после замены:');
  writeln(replacedS);

  readln;
end.

Программа сначала запрашивает у пользователя ввод строки S. Затем она проходит по каждому символу строки S и заменяет символ "ь" на подстроку "Мягкий знак!", формируя новую строку replacedS. После завершения замены, программа выводит исходную строку S и строку после замены replacedS на экран.

Обратите внимание, что программа предполагает, что пользователь будет вводить только одну строку и что она не содержит символы, отличные от "ь". Если строка может содержать другие символы, то нужно внести соответствующие изменения в код программы.