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

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

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

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

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

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

Question

Информатика

Мира

19 февраля, 15:53

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

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

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

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

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

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

+4

Ответы (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.