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

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

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

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

Загрузить картинку
Недавние вопросы

Информатика, опубликовано 9 минут назад

Перевести число 21 в двоичную систему отсчета?

Информатика, опубликовано 20 минут назад

Является ли заданное число четным и положительным

Информатика, опубликовано 21 минуту назад

Помогите все сделать плз!)