В некотором тексте все сочетания букв «ро», заменить на «ла». Проверить для поговорки «Что написано пером не вырубишь топором» — Pascal(Паскаль)

Program PascalGuru;

label 1;

var
  p: integer;
  s: string;

begin
  write('Vvedite stroku:');
  readln(s);
  writeln('Ishodnaya stroka: ', s);

  repeat
    p := pos('ро', s);

    if p > 0 then
    begin
      s[p] := 'л';
      s[p + 1] := 'а';
    end;

  until p = 0;

  writeln;
  writeln('Preobrazovannaya stroka: ', s);

  readln;

end.

Leave a Comment

+ 54 = 55