Напечатать заданный текст с удалением из него всех букв b, непосредственно перед которыми находится буква с.
Напечатать заданный текст с удалением из него всех букв b, непосредственно перед которыми находится буква с.
Гость
Ответ(ы) на вопрос:
Гостьvar
s: string;
i: integer;
begin
readln(s);
i := 1;
while (i < length(s)) do
begin
if ((s[i] = 'b') and (s[i + 1] = 'c')) then
delete(s, i, 1);
i := i + 1;
end;
writeln(s);
end.
Не нашли ответ?
Похожие вопросы