Найти произведение:

/frac{ (k^{2} + 3) (k^{2}+5) (k^{2} + 7) * ... * (k^{2}+103) }{ (k-7) (k-10) (k-13) * ... * (k-97) } [/tex]

Question

Информатика

Гораций

25 мая, 16:27

Найти произведение:

/frac{ (k^{2} + 3) (k^{2}+5) (k^{2} + 7) * ... * (k^{2}+103) }{ (k-7) (k-10) (k-13) * ... * (k-97) } [/tex]

+1

Ответы (1)

Знаете ответ?

Валера · Answer 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.

Найти произведение:/frac{ (k^{2} + 3) (k^{2}+5) (k^{2} + 7) * ... * (k^{2}+103) }{ (k-7) (k-10) (k-13) * ... * (k-97) } [/tex]

Найти произведение:

/frac{ (k^{2} + 3) (k^{2}+5) (k^{2} + 7) * ... * (k^{2}+103) }{ (k-7) (k-10) (k-13) * ... * (k-97) } [/tex]