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

[ilyas22]

Вывести в алфавитном порядке все буква текста, входящие в него более двух раз

[Stranger333]

Ну если у вас в строка типу String, тогда вы можете ее отсортировать любым способом который вам нравится, а за тем выводить нужные вам слова.

[ilyas22]

<отсортировать любым способом который вам нравится> как это сделать?

[Serge_Bliznykov]

Сообщение от ilyas22

<отсортировать любым способом который вам нравится>

забудьте об этом. Вам нужно решение через тип множество.

вот готовое решение.

var sAll, sDouble : set of char;
   s : string;
   i : integer;
   ch : char;
begin
   WriteLn('Введите исходный текст: ');
   Readln(s);
  
   {начальная иницилизация множеств}
    sAll := [];
    sDouble := [];

    {перебор строки и проверка вхождения символов}
    for i:=1 to length(s) do  begin
      if s[i] in sAll then {встретился повторный символ}
            include(sDouble, s[i])
      else
           include(sAll, s[i]); 
    end;

   {вывод результатов}
   for ch:=' ' to #255 do
      if ch in sDouble then 
           Write(ch,'  ');
   WriteLn;
   Readln;
end.

[ilyas22]

Спасибо! Выручили, а что означает этот символ #

[Serge_Bliznykov]

а что означает этот символ #

Это означает, что компилятор понимает, что число после решёточки принимать не как число, а как символ с таким кодом.
Например, s := #072#101#108#108#111;
равносильно s:= 'Hello';

А в случае данной программы можно заменить на
for ch:=' ' to chr(255) do
или
на
for ch:=' ' to 'я' do
('я' можно заменить на любой символ, главное, чтобы он был символом с наибольшим возможным кодом, который может встретиться в Вашем тексте...)