Войти
Регистрация
Спроси ai-bota
В
Все
У
Українська література
Г
Геометрия
Д
Другие предметы
Э
Экономика
Г
География
О
ОБЖ
М
Математика
М
МХК
Х
Химия
Қ
Қазақ тiлi
Л
Литература
У
Українська мова
О
Обществознание
Ф
Физика
А
Английский язык
А
Алгебра
И
История
Б
Беларуская мова
Б
Биология
М
Музыка
П
Право
И
Информатика
П
Психология
В
Видео-ответы
Н
Немецкий язык
Ф
Французский язык
О
Окружающий мир
Р
Русский язык
Показать больше
Показать меньше
vikamolchanova1
29.05.2022 07:28 •
Информатика
Вычислить y=cosx+cosx^2+cosx^3++cosx^n
Ответ:
dakar3642
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 оценок)
Популярные вопросы: Информатика
Данька228228
22.09.2020 14:03
Задача по информатике егэ решите с подробным решием...
rushsh1
22.11.2022 05:27
Надо сдать эти работы! 60 ! написать все программы на языке с++ 1) в массиве в(11) все элементы из интервала (a,b) занесите в массив с и найдите сумму элементов полученного массива....
Гилязарт
22.11.2022 05:27
Кто в теме, , ! на языке си вычислить выражение f= x - (x^2 / (1 + sin^2 (x+y+z))...
Олиф1
27.12.2022 22:08
Какие цифровые устройства участвуют в процессе записи и воспроизведения видео ?...
personalyanaul
27.11.2020 02:55
Зацените Скрипт епта http s://yadi.sk/d/thfzBTX9fwXUTA оцени от 1 до 10 буду признателен...
svetaabc
30.11.2022 06:21
Дана длина комнаты в миллиметрах. Выразите длину в метрах, сантиметрах и миллиметрах. ...
Adamant0813
04.12.2021 23:03
Что выведет программаa = 15 b=2print(a//b)...
machismo
23.03.2020 16:01
Введите с клавиатуры значения элементов массива и увеличте на 5 значения всех элемнтов массива кроме первого и последнего....
malikajdar
23.03.2020 16:01
Заполнить.. имя объекта компьютер данные об объекте: компьютер-это электронное устройство, предназначенное для компьютер-это система, так как он компьютер-это средство и инструмент...
Apple019
05.06.2020 07:03
Морфемный разбор слов: притягательный, держит, рассвет....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
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.