Составить программу замены предложения всюду буквы один ** букву два. предложения и буквы...

Question

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

Comments

в паскале

---

срочно надо

Answer 1

Var s: string; a, b: char;
begin
readln(s);
readln(a, b);
for i:= 1 to length(s) do if s[i] = a then s[i] := b;
writeln(s);
end.

Comments

а какое слово ввести?

---

вводи строку, потом символ с какого, потом на какой

---

var s: string; a, b: char; i: integer;
begin
readln(s);
readln(a);
readln(b);
for i:= 1 to length(s) do if s[i] = a then s[i] := b;
writeln(s);
end.

---

пример:

---

лол л п поп