Question

Составить программу, которая вычисляет произведение сомножителей: (1+1/1)(1+1/4)(1+1/9)(1+1/16)(1+1/25)(1+1/36)… Вычисление происходит до тех пор, пока произведение сомножителей не станет больше, чем 3.6. В ответе написать количество сомножителей для данного вычисления. В ответе указать только число, например, 15

Answer 1

Var i, ans : integer;
pr : real;
begin
    i := 1;
    pr := 1;
    ans := 0;
    while (pr <= 3.6) do begin
        pr *= (1 + 1 / (i * i));
        i := i + 1;
        ans := ans + 1;
    end;
    writeln(ans);
end.

48 сомножителей