Задача

Написать программу для вычисления факториала числа n.


Решение

Факториалом числа n (обозначается n!, произносится эн факториал) называют произведение всех натуральных чисел до n включительно. К примеру, факториал числа 5 будет выглядеть так: 5! = 1 * 2 * 3 * 4 * 5 и будет равен 120.

Стоит заметить, что 0! = 1. Факториал определён только для целых неотрицательных чисел.
Программа 01 Program factorial;
02 Uses Crt;
03 Var f,n,i : LongInt;
04
05 Begin
06 ClrScr;
07 Write('Введите n=');readln(n);
08 f:=1;
09 For i:=1 To n Do f:=f*i;
10 Write('Факториал от числа ',n,'! = ',f);
11 Readln
12 End.
01 Program factorial;
02 Uses Crt;
03 Var f,n,i : LongInt;
04
05 Begin
06 ClrScr;
07 Write('Введите n=');readln(n);
08 f:=1;
09 For i:=1 To n Do f:=f*i;
10 Write('Факториал от числа ',n,'! = ',f);
11 Readln
12 End.

Внимание

Стоит учитывать тот факт, что факториал 9 (девяти) равен 362880, что больше чем в 10 раз превышает максимальное значение для типа Integer (диапазон от -32 768 до +32 767), поэтому в данном примере лучше использовать тип LongInt, диапазон которого от -2147483648 до +2147483647. Если же и этого будет недостаточно, то можно воспользоваться вещественными типами, количество значащих цифр в которых достигает 20.