:факториал числа представляет собой произведение всех натуральных чисел от 1 до этого числа включительно. например, факториал числа 7 выглядит так: 1 * 2 * 3 * 4 * 5 * 6 * 7 факториал числа обозначается как само число после которого следует восклицательный знак. например, 7! . таким образом: 7! = 1 * 2 * 3 * 4 * 5 * 6 * 7 = 5040 требуется определить факториал числа, которое ввел пользователь.
if (n=0) then writeln('0!=1') else
if (n<0) then writeln('Определяется только для положительных чисел') else
begin
s:=1;
for i:=1 to n do
s:=s*i;
writeln(n,'!='s:0:0);
end;
2)function f(x:byte):real;
begin
if x=0 then f:=1
else f:=f(x-1)*x;
end;2
с рекурсии, как видно
x,n:integer;
begin
f:=1;
write('N='); readln(N);
if N<0 then writeln('EROOR!') else
if N=0 then writeln('N!=',1)
else begin
for x:=2 to N do
f:=f*x;
writeln('N!=',f); end;
end.
Влазят только числа, не превышающие 170.