задача на строки Опции

[AlexShadow]

напечатать в алфавитном порядке различные строчные буквы, входящие в заданный текст из 200 литер(текст , я так понимаю брать от балды).....оч срочно нужно решить, но голова не варит совсем(((помогите пожалуйста)))

[Lapp]

напечатать в алфавитном порядке различные строчные буквы, входящие в заданный текст из 200 литер

Заводишь множество:

var
  m: set of char;

Сначала проходишь по тексту и складываешь буквы в множество:

  for i:= 1 to Length(s) do Include(m,s[i]);

Потом убираешь оттуда лишние символы:

  m:= m * ['a'..'z'];

И печатаешь:

  for c:='A' to 'z' do if c in m then Write( с );

Вроде все..

[AlexShadow]

Заводишь множество:

var
  m: set of char;

Сначала проходишь по тексту и складываешь буквы в множество:

  for i:= 1 to Length(s) do Include(m,s[i]);

Потом убираешь оттуда лишние символы:

  m:= m * ['a'..'z'];

И печатаешь:

  for c:='A' to 'z' do if c in m then Write( с );

Вроде все..

пасиб большое))))

[Lapp]

пасиб большое))))

Пара исправлений..
В последней строке нужно A заменить на a.

  for c:='a' to 'z' do if c in m then Write( с );

Но тогда предпоследняя сторока становится вообще не нужна, можешь ее убрать.