Задачка паскаль Дана символьная строчка, посчитать количество букв о. Поменять все

Задачка паскаль Дана символьная строка, посчитать количество букв о. Поменять все буковкы о на а. Моя программа буковкы о считает, а вот на а их не меняет, как это сделать?

Задать свой вопрос
1 ответ
var s:string; i,k:integer;
begin
writeln('Введите строчку:');
readln(s);
k:=0;
for i:=1 to length(s) do
if s[i]='o' then begin k:=k+1; s[i]:='a'; end;
writeln('k = ',k);
writeln(s);
end.

Пример:
program, procedure, var, array
k = 2
pragram, pracedure, var, array
, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт