Question

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

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.