Удалить из первой строки все слова, которые попадаются во второй строке

@Sma1lON · Регистрация: 02.03.2018

Ввести 2 строки, удалить из 1 строки все слова, которые попадаются в 2 строке.

Срочно нужна помощь

@Chvick · 03.03.2018, 19:00

Sma1lON, держи

Pascal

var
c, a, s:string;
d:longint;
begin
readln(s); s:=s+' ';
readln(a); a:=a+' ';
while pos(' ', a)<>0 do
begin
  c:=copy(a, 1, pos(' ', a));
  d:=length(c);
  delete(a, 1, d);
  while pos(c, s)<>0 do
  delete(s, pos(c, s), d);
end;
writeln(s);
end.

Если запускаешь на freepascal и хочешь, чтобы работало на более длинных строках - пиши ansistring

@Sma1lON · 05.03.2018, 21:14 **[ТС]**

Можете закрывать,спасибо

@Cyborg Drone · 06.03.2018, 03:23

Не по теме:

Можете почитать правила форума. Темы по просьбам участников форума на этом форуме не закрываются (и не удаляются).

@Sma1lON 0 / 0 / 0 Регистрация: 02.03.2018 Сообщений: 5
		1
	Удалить из первой строки все слова, которые попадаются во второй строке 02.03.2018, 23:55. Показов 1944. Ответов 3 Метки нет (Все метки) Ввести 2 строки, удалить из 1 строки все слова, которые попадаются в 2 строке. Срочно нужна помощь __________________ Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь 0

@Sma1lON 0 / 0 / 0 Регистрация: 02.03.2018 Сообщений: 5
	05.03.2018, 21:14 [ТС]	3
	Можете закрывать,спасибо 0

@Cyborg Drone
	06.03.2018, 03:23 Удалить из первой строки все слова, которые попадаются во второй строке #4
	Не по теме: Можете почитать правила форума. Темы по просьбам участников форума на этом форуме не закрываются (и не удаляются). 0

Опции темы

Удалить из первой строки все слова, которые попадаются во второй строке

Решение