Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

Вычислить y=cosx+cosx^2+cosx^3+...+cosx^n

Ответ оставил Гость

Program pr;
uses crt;

Var n,i:integer;
x,y:real;

Begin
Writeln(Введите x);
readln(x);
Writeln(Введите n);
readln(n);
y:=0;

for i:=1 to n do
y:=y+cos(power(x,i));

Writeln(y = , y);
readln();
end.