Дан текст (слова из строчных латинских букв). Построить множество, состоящее из букв, входящих в текст не менее двух раз

[Grenki]

Дана такая интересная задача.

Входными данными для программы является текст - слова из строчных латинских букв. Построить множество, состоящее из букв, входящих в текст не менее двух раз.

[Кольша]

Ваши наработки?

[Аватар]

Абсолютно примитивная не интересная задача. Считай сколько раз каждая буква входит в текст

[Vanta11a]

Плюсую Аватара, ну нифига не интересно же.

[Rififi]

Grenki

Дана такая интересная задача.





Входными данными для программы является текст - слова из строчных латинских букв. Построить множество, состоящее из букв, входящих в текст не менее двух раз.

[Serge_Bliznykov]

Подсчитывать не обязательно, достаточно использовать множества.
например:

var sOne, sTwo : set of char;
  i : integer;
  s : string;
begin
   sOne := []; sTwo  := [];
   s := 'sapienti sat';
   for i:=1 to Length(s) do
     if s[i] in ['a'..'z'] then
        if s[i] in sOne then Include(sTwo, s[i])
        else  Include(sOne, s[i]);
   WriteLn('Готово! Множество сформировано!');
end.

Вот и готовая программа!
И что особенно забавно в этой "интересной" задаче, так это то, что поставлена задача сформировать множество, но не стоит задача отобразить (вывести) его содержимое