Дана строка.найти в строке символ который встречается только один раз.

[Un1q]

ПОМОГИТЕ на практике сижу(( быстрее)

Дана строка.найти в строке символ который встречается только один раз.

[Serge_Bliznykov]

пишу код только потому, что задача ОЧЕНЬ простая.

просто один из вариантов...

var counts[0..255] of integer;
  s : string;
  i : integer;
begin
  WriteLn('Введите строку: '); Readln(s);
  
 {обнулим массив счётчиков}
 for i:=0 to 255 do counts[i] := 0;

 {подсчитаем появление каждого символа в заданной строке} 
 for i:=1 to Legnth(s) do Inc(counts[ ord(s[i])]);

 {выдать символы, которые встретились строго один раз}
 Write('Символы, которые встретились один раз: ')
 for i:=0 to 255 do 
   if counts[i] = 1 then Write(chr(i));

 Readln;
end.

p.s. код писал в браузере, и не проверял.