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

Question

Информатика

Агапия

12 марта, 17:11

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

+4

Ответы (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.