Программа (строчные и заглавные буквы считаются различными):
var s:string; i,k:integer; m:set of char; c:char;
begin
writeln('Введите слово:');
readln(s);
m:=[];
for i:=1 to length(s) do m:=m+[s[i]];
k:=0;
for c:=chr(32) to chr(255) do
if c in m then k:=k+1;
writeln('Количество различных букв = ',k);
end.
Пример:
Введите слово:
электрификация
Количество различных букв = 11