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

Question

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

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

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

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

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.