Отыскать творение: frac(k^2 +3)( k^2+5)( k^2 +7)*...*( k^2+103)

Отыскать творенье:
\frac(k^2 +3)( k^2+5)( k^2 +7)*...*( k^2+103) (k-7)(k-10)(k-13)*...*(k-97) [/tex]

Задать свой вопрос
1 ответ
Var P,k:real;
    i:integer;
Begin
P:=1;
Write('k = ');ReadLn(k);
For i:= 1 to 31 do
    P:=P*(k-i*3-4);
P:=1/P;
k:=k*k;
For i:= 1 to 51 do
    P:=P*(k+i*2+1);
WriteLn('P = ',P);
End.
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт