Войти Регистрация Спроси ai-bota

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

Ответ:

Liza200011111

03.10.2020 06:21

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.

0,0(0 оценок)

Популярные вопросы: Информатика

svetlana2017711

15.06.2021 06:05

Як називається конструктор списку і який його синтаксис?...

oleglebedev90

09.09.2022 23:31

Практическая работа в Paint. (5 класс) «Копирование(вставка). Отражение. Ход работы: 1 Открыть графический редактор Paint. 2 Рисуем одну уточку: Тело, голова, глаз - инструмент...

Alya23051

27.02.2022 20:33

Написать программу записи в файл и чтение из файла элементов массива структур для регистрации автомашин с полями: марка машины, год выпуска, цвет, номер. организовать поиск по...

Анастасия186186

27.02.2022 20:33

Массивы алгоритм вставки и удаление из массива. добрые люди! в произвольном массиве a,состоящем из целых чисел,принадлежащих промежутку [-50; 50].утроить элементы,стоящие на четырех...

shoxi21

27.02.2022 20:33

Составьте программу, позволяющую определить, являются ли числа a,b,c, пифагоровыми тройками.указанные числа a,b,c, являются пифагоровыми тройками, если квадрат одного из чисел...

nastya2719

27.02.2022 20:33

Напишите программу которая вводит координаты точки на плоскости и определяет? попала ли эта точка в заштрихованную область. (х*x+y*y=4; y=x; x=2)...

Ediнорог

02.12.2021 09:07

Выбери верный ответ. C= 13 7 1 . C=0 2. не является высказыванием 3. C=1...

Kykyblohka

05.09.2022 22:34

Установи соответствиеA) Создание текстовых документов B) Перевод текста с одного языка на другойC) Формирование навыков печати D) Распознание текста1)Microsoft Word2)OpenOffice.org...

zhahbota

17.11.2020 08:40

Программирование С++ Нужно написать код с...

omarova06

04.04.2023 10:56

Какие значения примет переменная с после выполнения следующего фрагмента программы: c:=1;d:=10; while d 50 do begin c:=c*2; d:=d+10; end;...

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку