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

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

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

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

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

{ реурсивные алгоритмы: вычисление факториал }

var n : integer;

function fact(x: integer): longint;
begin
   if x = 1 then fact := 1 else fact := x * fact(x - 1);
end;

begin
     writeln('Введите N (N = 1..13):');
     readln(n);
     writeln('N! = ', fact(n));
end.