Составить циклический процесс определения произведения натуральных чисел (факториал)...

Question

Составить циклический процесс определения произведения натуральных чисел (факториал) 1*2*3 *n, для произвольного n (n!)

план работы.
1. условие задачи
2.математическая модель
3.список переменных с их расшифровкой
4.блок-схема алгоритма
5.программный код

Answer 1

1. Есть 
2.
3. n - заданное число, y - факториал числа, i - счётчик
4. Прил.
5. 
var
  y: System.uint64; //Большая цифра же и положительная
  n, i: byte; //Нет смысла большие числа брать слишком, переполнение будет

begin
  readln(n); //Принимаем число...
  y := 1;
  i := 1;
  repeat
    y := y * i; //...и умножаем такое-то количество раз
    i := i + 1;
  until i > n;
  if (y = 0) then //Выводим, предусмотрев переполнение
    writeln('Слишком большая цЫферка')
  else
    writeln(y);
end.

---