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

Question

Информатика

Дмитрич

20 ноября, 19:45

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

+4

Ответы (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.