
Пушешников
5 год назад
Паскаль!Дана строка символов, состоящая из слов. Заменить в словах слог "ба" на "ро" (например, "база" - "роза"). Если таких слов нет, то выдать соответствующее текстовое сообщение.
ОТВЕТЫ

Лев
Oct 24, 2020
var s: string;
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.
строка: большой баобаб
новая строка: большой роороб
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.
строка: большой баобаб
новая строка: большой роороб
933
Смежные вопросы: