Дана строка, состоящая из строчных латинских букв. Определить кол-во разных символов в...

Question

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

Answer 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