Ответ:

только программа на паскале

Объяснение:

program func_t;

var

 y, t: real;

 a: integer;

begin

 Write('Введите значение y >> ');

 ReadLn(y);

 if y <= 0 then

 begin

   a := 1;

   while a <= 13 do

   begin

     t := t + a * tan(sqr(y));

     a := a + 2;

   end;

 end

 else

 begin

   t := 1;

   for a := 3 to 15 do t := t * (a * y);

 end;

 WriteLn('t(',y,')=',t);

end.