Запись оставлена U 07.07.2020 в 07:46
запустить | скачать | новая запись
- program Dekio;
- var
- s,n :string;
- i :integer;
- begin
- writeln('Введите строку');
- readln(s);
- writeln('Введите слово которое удалить');
- readln(n);
- while pos(n,s)<>0 do
- delete(s,pos(n,s),length(n));
- writeln('Результат');
- writeln(s);
- end.
Отправка исправлений и поправок. (cоздать новую запись)
После отправки поправок вы сможете посмотреть различия между старой и новой записью.