Составить программку, которая вычисляет творение

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

Задать свой вопрос
1 ответ
Var i, ans : integer;
pr : real;
begin
    i := 1;
    pr := 1;
    ans := 0;
    while (pr lt;= 3.6) do begin
        pr *= (1 + 1 / (i * i));
        i := i + 1;
        ans := ans + 1;
    end;
    writeln(ans);
end.

48 сомножителей
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт