Question

Вычислить:
нужно сделать циклом reareat

Answer 1

Var
    n, i, f: integer;
    p:real;

begin
    n := 10;
    
    i := 2;
    f := i;
    p := 1;
    repeat
        p := p * (1 - 1 / f);
        i := i + 1;
        f := f * i;
    until i > n;
    
    writeln(p * p);
end.