Question

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

Answer 1

Var
   F2:real;
   n,F:longint;
Begin
Write('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 = 5
n!! = 6.68950291344912E+198

Больше не выдержит вещественный тип.



Var
   S:real;
   N:integer;
Begin
Write('N = ');
ReadLn(N);
S:=0;
For N:= 1 to N do
    S:=S+1/N;
WriteLn('S = ',S);
End.