Дана строка, состоящая из строчных латинских букв. определить кол-во разных символов в строке. использовать множества. . хотя бы образец решение не обязательно. 100
// 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.
// Внимание! Если программа не работает, обновите версию!
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.
Пример
Разных символов в строке: 19