Question

Написать в Паскаль Турбо следующее задание:

Удалить из строки W все буквы, соответствующие первой букве имени разработчика программы. Вывести на экран символьную строку до и после изменения, а также количество удаленных символов.

Answer 1

program abcd;

var

 s: string[254];

 c: string[1];

 i: byte;

begin

 Readln(s); { строка }

 Readln(c); { буква }

 repeat

   i := Pos(c, s);

   if i > 0 then

     Delete(s,i,1);

 until i = 0;

 Writeln(s);

end.