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

Question

Веденей

2 июля, 14:09

+3

Ответы (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.