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.