Здравствуйте!Помогите решить задачу,срочно нужно!Заранее всем спасибо! Задача:Напечатать все слова текста, отличные от заданного слова.(текст произвольный)
var a,b:string;s:integer; begin write('Введите слово'); readln(a); write('Введите текст'); read(b); repeat begin s:=pos(a,b); if s<>0 then delete(b,s,length(a)); end;until s=0; writeln(b); end. Нужна помощь? Сюда: vkontakte.ru/berestovskiy
