только программа на паскале
Объяснение:
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.
