Pascal ABCТема: Множества. Вывести все буквы строки в алфавитном порядке. И подсчитать их.

Question

Вывести все буквы строки в алфавитном порядке. 
И подсчитать их.

Лена Шмакова · Accepted Answer

как-то так 
 
var 
 S: String; 
 i: Integer; 
 Chars: set of Char; 
 Ch: Char; 
begin 
 readln(S); 
 Chars := []; 
 
 for i := 1 to Length(S) do 
 Include(Chars, S[ i ]); 
 for Ch := Low(Ch) to High(Ch) do 
 if Ch in Chars then write(Ch) 
end;

Александр · Answer

Пробегаете, и каждую букву заносите в массив, размером с алфавит на позицию в этом алфавите. Потом пробегаете этот массив и считаете количество.