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

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

Ответ

Автор - BobbyFresnel

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.

Предыдущий вопрос Следующий вопрос

Сервис носит ознакомительный характер, вся информация, а в частности вопросы и ответы, которые задают и отвечают пользователи.