Предмет: Информатика,
автор: strateg132
Напечатать заданный текст с удалением из него всех букв b, непосредственно перед которыми находится буква с.
Ответы
Автор ответа:
0
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.
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.
Похожие вопросы
Предмет: История,
автор: danilwil
Предмет: Английский язык,
автор: Аноним
Предмет: Математика,
автор: driupin68
Предмет: Обществознание,
автор: korolyuktasha
Предмет: Математика,
автор: artiomiaryghin