Помогите пожалуйста написать программу на паскале. Даны натуральное число N и действительное число X.Вычислить:tg X+tg tg X+tg tg tg X+...+tg tg...tg X.
Ответы
Ответ дал:
0
var
n, i: integer;
x, ans, s: real;
begin
readln(n, x);
ans := tg(x);
s = ans;
for i := 2 to n do
begin
ans := tg(ans);
s := s + ans;
end;
writeln(s);
end.
n, i: integer;
x, ans, s: real;
begin
readln(n, x);
ans := tg(x);
s = ans;
for i := 2 to n do
begin
ans := tg(ans);
s := s + ans;
end;
writeln(s);
end.
Ответ дал:
0
нужно чтобы после 2 было тангенс тангенса х, а у тебя просто идет плюсование тангенса х
Ответ дал:
0
мы вычисляем тангенс от тангенса,т.е. на 2 шаге программы ans = tg tg x
Ответ дал:
0
и мы его прибавляем к ответу
Похожие вопросы
2 года назад
2 года назад
7 лет назад
10 лет назад
10 лет назад