Замена символов в паскале - Turbo Pascal
Формулировка задачи:
доброго времени суток! помогите написать программу, которая заменяет одни символы в строке на другие, например, дано " x and y, b and a", конечный результат: "x&y, b&a"
Решение задачи: «Замена символов в паскале»
textual
Листинг программы
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;
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д