Паскаль!
Дана строка символов, состоящая из слов. Заменить в словах слог "ба" на "ро" (например, "база" - "роза"). Если таких слов нет, то выдать соответствующее текстовое сообщение.
Дана строка символов, состоящая из слов. Заменить в словах слог "ба" на "ро" (например, "база" - "роза"). Если таких слов нет, то выдать соответствующее текстовое сообщение.
More Questions From This User See All
Answers & Comments
n,k: integer;
begin
n:=1; k:=0;
write('строка: '); readln(s);
while n>0 do
begin
n:=pos('ба',s);
if (n>0) then
begin
k:=k+1;
s[n]:='р';
s[n+1]:='о';
end;
end;
if k>0 then writeln('новая строка: ',s)
else writeln('нет слога "ба" ');
end.
строка: большой баобаб
новая строка: большой роороб