Question

написать программу нахождения факториала:
1) n!
2)1!+2!+3!+...+n!
3)1!+3!+5!+...+(2n-1)!

Answer 1

program zadanie1;
var n:integer;
        rn:int64;
{------------------------}
function f(arg:integer):int64;
var fi:integer;
begin
        f:=1;
        for fi:=1 to arg do begin
                f:=f*fi
        end
end;
{------------------------}
begin
        readln(n);
        rn:=f(n);
        writeln(rn);
        readln
end.