Задача о нахождении факториала

Как пример к статье о операторном цикле с постусловием, предлагаю вам решенную задачу на нахождение факториала.

Программа на Pascal

Program factorial ;
Var i, n : integer ;
 p : real ;
Begin
 Writeln('Введите количество чисел N') ;
 Readln(N) ;
 P := 1 ;
 I := 1 ;
 Repeat 
  P := P*I ;
  I := I+1 
 Until I > N ;
Writeln(' Фактериал равен = ', p:0:0) ;
Readln ;
End.

Посчитать факториал числа

Задача.
Посчитать сумму N! (N - факториал).

Блок-схема

Программа на Pascal

Program factorial;
Var i,n:integer;
 factorial:real;
Begin
 Writeln('Введите N');
 Readln(N);
 factorial:=1;
 for i:=1 to N do
  factorial:=factorial*i;
 Writeln('Факториал N чисел равен = ',factorial:0:2);
 Readln;
End.