Напечатать заданный текст с удалением из него всех букв b, непосредственно перед которыми находится буква с.

Question

Информатика

Гуня

18 июня, 19:02

Напечатать заданный текст с удалением из него всех букв b, непосредственно перед которыми находится буква с.

+2

Ответы (1)

Знаете ответ на вопрос?

Мура · Answer 1

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.