Помогите пожалуйста написать программу на паскале. Даны натуральное число N и действительное число X.Вычислить:tg X+tg tg X+tg tg tg X+...+tg tg...tg X.

нужно чтобы после 2 было тангенс тангенса х, а у тебя просто идет плюсование тангенса х

мы вычисляем тангенс от тангенса,т.е. на 2 шаге программы ans = tg tg x

и мы его прибавляем к ответу

varn, i: integer;x, ans, s: real;beginreadln(n, x);ans := tg(x);s = ans;for i := 2 to n dobeginans := tg(ans);s := s + ans;end;writeln(s);end.