1.Написать программу для вычисления двойного факториала.
2) Ввести натуральное N и вычислить сумму 1+1/2+1/3+1/4+,,,+1/N-1+1/N

Var   F2:real;   n,F:longint;BeginWrite('n = ');ReadLn(n);F:=1;For n:= 1 to n do    F:=F*n;F2:=1;For n:= 1 to F do    F2:=F2*n;WriteLn('n!! = ',F2);End.Предел этой программы:n = 5n!! = 6.68950291344912E+198Больше не выдержит вещественный тип.Var   S:real;   N:integer;BeginWrite('N = ');ReadLn(N);S:=0;For N:= 1 to N do    S:=S+1/N;WriteLn('S = ',S);End.