Написать в паскаль турбо следующее : удалить из строки - вопрос №10153141 от irochka320969 15.09.2020 02:00

Question

Информатика: Написать в паскаль турбо следующее : удалить из строки w все буквы, соответствующие первой букве имени разработчика программы. вывести на экран символьную строку до и после изменения, а также количество удаленных символов.

irochka320969 · Answer

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....