Опубликовано 12.06.2017 по предмету Информатика от Гость >> <<

Набрать и выполнить программу замены во введенной с клавиатуры строке одного символа на другой. Оба символа также вводятся с клавиатуры.

Ответ оставил Гость

Uses crt;
var text, w, s: string; i: integer;
Begin
write(Введите изначальный текст: ); readln(text);
write(Введи символ который хотите заменить: ); readln(w);
write(Чем заменить символ: ); readln(s);
write(Преобразованный текст: );
for i := 1 to length(text) do
if text[i] = w then write(s)
else write(text[i]);
End.