Напишите программу, которая определяет количество различных символов, встречающихся в символьной строке.

Входные данные

На вход программы подаётся символьная строка.

Выходные данные

Программа должна вывести количество различных символов в этой строке.

Примеры

входные данные

aB122AB

выходные данные

5

Pascal ABC 1.8

Question

Информатика

Антипа

19 декабря, 03:14

Напишите программу, которая определяет количество различных символов, встречающихся в символьной строке.

Входные данные

На вход программы подаётся символьная строка.

Выходные данные

Программа должна вывести количество различных символов в этой строке.

Примеры

входные данные

aB122AB

выходные данные

5

Pascal ABC 1.8

+1

Ответы (1)

Знаете ответ на вопрос?

Олеся · Answer 1

Var used: Set of Char;

s: string;

i, cnt: integer;

c: char;

begin

used : = [];

readln (s) ;

for i : = 1 to length (s) do

include (used, s[i]) ;

cnt : = 0;

for c : = #0 to #255 do

if (c in used) then

cnt : = cnt + 1;

writeln (cnt) ;

end.