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

Question

Сергей

14 февраля, 01:06

+5

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