Паскаль дана символьная строка, посчитать количество букв о. заменить все буквы о на а. моя программа буквы о считает, а вот на а их не меняет, как это сделать?
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
Автор рассказа - Виктор Юзефович Драгунский (1913 - 1972), название рассказа - "Когда я был маленьким".
Главный герой рассказа в детстве плохо пережёвывал пищу и, чтобы поддержать мальчика, во время еды его мама рассказывала сказки. Одной из таких сказок была "Красная Шапочка". Во время рассказа мама напоминала ребёнку хорошенько жевать. После завершения сказки, когда по сюжету охотники разрезали брюхо волку и из него вылезли невредимыми Красная Шапочка и её бабушка, малыш заметил: "Не прожевал, значит, волк-то!" - что противоречило маминым призывам пережёвывать и поэтому звучало особенно забавно.
Автор рассказа - Виктор Юзефович Драгунский (1913 - 1972), название рассказа - "Когда я был маленьким".
Главный герой рассказа в детстве плохо пережёвывал пищу и, чтобы поддержать мальчика, во время еды его мама рассказывала сказки. Одной из таких сказок была "Красная Шапочка". Во время рассказа мама напоминала ребёнку хорошенько жевать. После завершения сказки, когда по сюжету охотники разрезали брюхо волку и из него вылезли невредимыми Красная Шапочка и её бабушка, малыш заметил: "Не прожевал, значит, волк-то!" - что противоречило маминым призывам пережёвывать и поэтому звучало особенно забавно.
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