Написать программу в паскале

Напишите программу, подсчитывающую количество

различных букв в заданном слове.

Входные данные: ввести строкy Y с длиной не более 255 символов.

Выходные данные: вывести одно число, количество различных символов в

данной строке.

Question

Информатика

Альберта

17 марта, 12:31

Написать программу в паскале

Напишите программу, подсчитывающую количество

различных букв в заданном слове.

Входные данные: ввести строкy Y с длиной не более 255 символов.

Выходные данные: вывести одно число, количество различных символов в

данной строке.

+1

Ответы (1)

Знаете ответ?

Романа · Answer 1

var

y, b: string;

i: integer;

begin

readln (y) ;

for i : = 1 to length (y) do

if (Pos (y[i], b) = 0) then

b : = concat (b, y[i]) ;

writeln (length (b)) ;

end.