Напечатать все слова, которые встречаются в ней ровно 1 раз, есть ли оптимальное маленькое решение? Опции

[kr3v3tkus]

Напечатать все слова, которые встречаются в ней ровно 1 раз
не могу решить, тем более рационально(((

я смог решить вот ето:
5. Дана строка, состоящая из слов, разделенных пробелами. Напечатать все слова, отличные от данного.

может можно переделать эту задачку под требуемую?

решение

Код

program lol;
var text,tmp,txt:string;
      i,l:integer;
begin
writeln('vvest1 text');
readln(text);
writeln('vvest1 text dlia ydalen1ya');
readln(txt);
tmp:='';
l:=length(txt);
for i:=1 to length(text) do
if text[i]<>' ' then
  begin
    tmp:=tmp+text[i];
    if txt=tmp then delete(text,i-l,l+1);
  end
else tmp:='';
writeln(text);
readln;
end.

[kr3v3tkus]

volvo а с первой не помогеш? мне бы хотяб на мыслю наткнуться)