факториал

[dadayar]

Вычислить факториал заданного числа n (n> 0) () - тоесть произведение чисел от 1 до n.

[Stilet]

Внизу страницы ссылки на похожие темы. Бывал там?

[dadayar]

да, там не то... мне нужно что-то типа:

Program my;
var i,s:integer; f:longint;
begin
s:=1;
for i:=1 to 20 do
f:=f*i;
writeln('произведение от 1 до 20 ',f);
readln
end.

[Stilet]

Ё-мое... Дак ты ответ на свой вопрос написал. Где n - 20

[Poma][a]

Program my;

var 
     i, s, n : Integer; 
     f : LongInt;

begin
        ReadLn (n);
        f := 1;
        
        for i := 1 to n do
                f := f * i;

        Writeln( 'произведение от 1 до ', n, ' = ',f);

end.

[hon]

function factorial(n: Extended): Extended;
begin
   if n > 1
   then result := n * factorial(n-1) // функция вызывает сама себя
   else if n < 0 then result := 0    //ошибка
                 else result := 1;   // факториал 1 равен 1
end;