Вычислить произведение y=arctg 4 * arctg 6 * arctg 8 * ... * arctg t. t - чётное, задается с клавиатуры.

Question

Информатика

Евдокия

1 августа, 20:32

Вычислить произведение y=arctg 4 * arctg 6 * arctg 8 * ... * arctg t. t - чётное, задается с клавиатуры.

+2

Ответы (1)

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

Антонинка · Answer 1

Var

t:integer;

y:real;

Begin

y:=1;

Write ('t = ') ; ReadLn (t) ;

While t > = 4 do

Begin

y:=y*ArcTan (t) ;

t:=t-2

End;

WriteLn ('y = ', y) ;

End.