Question

составить программу вычисления значения n!1,2,3,4,5,6 n=7
используя оператор FOR

Answer 1

program z1;
var i,n:byte;
        f:int64;
begin
        f:=1;
        readln(n);
        for i:=1 to n do begin
                f:=f*i
        end;
        writeln(f);
        readln
end.