Вычислить 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.

Оцени ответ
Не устраивает ответ?

Если твой вопрос не раскрыт полностью, то попробуй воспользоваться поиском на сайте и найти другие ответы по предмету Информатика.

Найти другие ответы

Загрузить картинку