Дана строка из произвольных слов. Найти все одинаковые слова и удалить все повторения слов

@arimaprog · Регистрация: 11.10.2019

Author24 — интернет-сервис помощи студентам

Дана строка из произвольных слов. Найти все одинаковые слова и удалить все повторения слов. не получается(

Pascal

var
i:integer;
sl, s: string;
begin
  readln(s);
  while pos('  ',s)>0 do begin
    delete(s,pos('  ',s),1);
  end;
  while length(s)>0 do begin
  sl:=Copy(s,1,pos(' ',s)-1);
  writeln(sl);
 while pos(sl,s)>0 do begin
  delete(s,pos(sl,s),length(sl));
  end;
  end;
end.

@ZX Spectrum-128 · 16.11.2019, 08:46

Найдено в Сети.
(С) Lapp

Pascal

var
  i,j,k: integer;
  s,p,q: string;
 
begin
  Write('Type in a string: ');
  ReadLn(s);
  i:=1;
  while i<Length(s) do begin
    while (i<Length(s)) and (s[i]=' ') do Inc(i);
    j:=i;
    while (i<Length(s)) and (s[i]<>' ') do Inc(i);
    q:=Copy(s,j,i-j);
    repeat
      p:=Copy(s,i,Length(s)-i+1);
      k:=Pos(q,p);
      if k>0 then Delete(s,i+k-1,i-j)
    until k=0
  end;
  WriteLn(s);
  ReadLn
end.

	16.11.2019, 08:46

Дана строка из произвольных слов. Найти все одинаковые слова и удалить все повторения слов

Решение