Написать в паскаль турбо следующее : удалить из строки - вопрос №10152639 от rmandzinDhsha 16.02.2020 12:47

Question

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

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