Строки

[Asira]

Подскажите как можно найти Слова, в которых не более 3-х различных букв.?

[Костя КС]

Мне кажется через множества будет удобно.
разбить тест на массив слов, а затем в множество вносить буквы каждого слова по отдельности.
если в множестве меньше 4 букв, значит слово подходит

var
m : set of char;
s : string;
i,k : byte;

begin

m := [];
k := 0;

readln(s);
for i := 1 to length(s) do
 if not (s[i] in m) then
 begin
 m := m + [s[i]];
 k := k + 1;
 write(s[i], '| ')
 end;

 if k >= 4 then writeln('>= 4') else writeln('< 4');
 end.

пример для одного слова.