Паскаль - вычисление факториала

Программа вычисления факториала

Program sfghgkk;
Uses Crt;
Var i,n,f:integer;
Begin
     f:=1;
     Writeln('программа для вычесления факториала числа n');
     Writeln ('введите n');
     Readln (n);
     For i:= 1 to n do 
     Begin
     f:=f*i;
     End;
     Writeln ('n!=',f);
Readln;  

 

Добавить комментарий


Защитный код
Обновить

Яндекс.Метрика