Дана строчка, состоящая из строчных латинских букв. Найти кол-во разных знаков

Дана строка, состоящая из строчных латинских букв. Определить кол-во различных символов в строке. Использовать огромного количества. Помогите пожалуйста. Желая бы эталон решение не непременно. Даю 100 баллов

Задать свой вопрос
1 ответ
// PascalABC.NET 3.3, сборка 1579 от 18.11.2017
// Внимание! Если программка не работает, обновите версию!

begin
  var s:=ReadlnString;
  var Q:set of char:=[];
  foreach var c in s do Q+=[c];
  var k:=0;
  foreach var c in Q do k+=1;
  Writeln('Различных знаков в строке: ',k);
end.

Пример
qwertrvynnmuimopcjdshfdfddervtetv
Различных знаков в строке: 19
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт