Написать в паскаль турбо следующее : удалить из строки - вопрос №10152464 от catikis 20.09.2022 11:58

Question

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

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