• Новости
• Состав группы
• Гостевая книга
• Рейтинг студентов

• Алгебра и геометрия
• Дискретная математика
• Информатика
• Математический анализ
• Отечественная история
• Практикум на ЭВМ

• Дискретная математика
• Дифференциальные уравнения
• Математический анализ
• Философия
• Практикум на ЭВМ
• Численные методы
• Экономика
• Физика

• Алгоритмы
• Калькулятор пределов
• Калькулятор производных
• Калькулятор интегралов

• Демидович Б. П. «Сборник задач и упражнений по математическому анализу», 1997 год
• Проскуряков И. В. «Сборник задач по линейной алгебре», 1966 год
• Прудникова Л. И. «Основы технологии программирования. Введение в Паскаль», 2006 год

var s: string;
    r: real;
    i, j, n: integer;
begin
    r := 0;
    readln(s);
    for i := 1 to length(s) do begin
       n := 0;
       for j := 1 to length(s) do begin
          if s[i] = s[j] then inc(n);
       end;
       r := r + 1/n;
    end;
    writeln('Количество различных букв = ', r:1:0);
end.