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

Question

Вукол

29 августа, 18:11

+4

Ответы (1)

Знаешь ответ?

Ферапонт · 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.