Программа вычисления факториала
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;
Программа вычисления факториала
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;