[Asira]

Программа, запрашивающая строки, слова которых разделены пробелами и знаками препинания и выводящую в столбик, в алфавитном порядке слова этой строки................................
Слова, в которых не более 3-х различных букв.......

Каким способом можно определить слова в которых не более 3 х различных букв??????????????

[lmikle]

Например, сдела строку и посчитав.

Код:

function DifCharCount(S : String) : Integer;
var
  I : Integer;
  B : String;
begin
  B := '';
  For I := 1 To Length(S) Do
    If Pos(S[i],B) = 0 Then B := B + S[i];
  Result := Length(B);
end;

ЗЫ. Данный код чуствителен к регистру. Если надо что бы был не чуствительный, то еще перед циклом надо сделать: S := AnsiUpperCase(S);