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

Твитнуть

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

Программа на 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.