ЛЁГКАЯ ЗАДАЧА ПО ПАСКАЛЮ! Составьте программу, которая позволяет удалить слова t из строки s. Строку s и слово t, которое надо удалить, введите с клавиатуры.

Там вторая строка теперь такая

Writeln(ReadlnString('s=').Replace(ReadlnString('t='),''))

Всё) Появилось) Спасибо Вам ещё раз огромное за помощь!!!

Да пожалуйста....

Спасибо за помощь))

Не за что.

Вы мне очень помогли))

Вы мне очень помогли))

// PascalABC.NET 3.2, сборка 1356 от 04.12.2016// Внимание! Если программа не работает, обновите версию!begin   Writeln(ReadlnString('s=').Replace(ReadlnString('t='),''))end.Пример:s= дождик, дождик, перестань!t= дождик, , перестань!

//Мне скучно, потому я пишу сомнительный код по примеру Эникея//PascalABC.NET 3.2 сборка 1318Var  s,t,snew,curr,add,currsave:string;  i,j,flag:integer;beginreadln(s);readln(t);//s=lowcase(s);t:=lowercase(t); while pos(' ',s)<>0 do  begin  flag:=0;    curr:=copy(s,1,pos(' ',s));    currsave:=curr;    if pos(t,lowercase(curr))<>0 then      begin        flag:=1;        delete(curr,pos(t,lowercase(curr)),length(t));        for j:=1 to length(curr) do        if ((curr[j]>='a') and (curr[j]<='я')) or ((curr[j]>='А') and (curr[j]<='Я')) or ((curr[j]>='a') and (curr[j]<='z')) or ((curr[j]>='A') and (curr[j]<='Z')) then          flag:=0;     end;  if flag=1 then snew+=curr else snew+=currsave;  delete(s,1,pos(' ',s));  end;curr:=s;currsave:=curr;flag:=0;if pos(t,lowercase(curr))<>0 then      begin        flag:=1;        delete(curr,pos(t,lowercase(curr)),length(t));        for j:=1 to length(curr) do        if ((curr[j]>='a') and (curr[j]<='я')) or ((curr[j]>='А') and (curr[j]<='Я')) or ((curr[j]>='a') and (curr[j]<='z')) or ((curr[j]>='A') and (curr[j]<='Z')) then          flag:=0;     end;if flag=1 then snew+=curr else snew+=currsave;writeln(snew);end.Пример ввода:Который из всех котов кот съел мясоПример вывода:Который из всех котов  съел мясо