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

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

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

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

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

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

Question

Информатика

Алеха

11 марта, 05:10

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

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

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

Входные данные: ввести строк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.