замена символов в паскале - Turbo Pascal

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

доброго времени суток! помогите написать программу, которая заменяет одни символы в строке на другие, например, дано " x and y, b and a", конечный результат: "x&y, b&a"


textual

Код к задаче: «замена символов в паскале - Turbo Pascal»

Readln(St);
S:=St;
While Pos('and',S)<>0 do
Begin
  Insert('&',St,Pos('and',S));
  Delete(St,Pos('and',S)+1,3);
  S:=St;
End;
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

7   голосов, оценка 4.143 из 5

Источник