Написать программу заменяющую одну букву на другую и подсчитывающую сколько раз ее заменили. (Букву любую на любую другую)
Ответ:
var
ch:integer;
s: string;
i: byte;
begin
WriteLn('Введите строку: ');
ReadLn(s);
for i := 1 to Length(s) do
if s[i] = 'a' then
s[i] := 'o';
ch++;
WriteLn('Полученная строка:');
WriteLn(s);
WriteLn(ch);
end.
Объяснение: