Предмет: Информатика,
автор: vas1337
Написать в Паскаль Турбо следующее задание:
Удалить из строки W все буквы, соответствующие первой букве имени разработчика программы. Вывести на экран символьную строку до и после изменения, а также количество удаленных символов.
Ответы
Автор ответа:
0
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.
Интересные вопросы
Предмет: Математика,
автор: danilkorolcom8
Предмет: Химия,
автор: user9472718449
Предмет: Алгебра,
автор: milatatarova093
Предмет: Математика,
автор: никитос218
Предмет: Математика,
автор: maria37388