Войти
Регистрация
Спроси ai-bota
В
Все
Х
Химия
В
Видео-ответы
А
Алгебра
Г
Геометрия
О
ОБЖ
Д
Другие предметы
У
Українська література
Р
Русский язык
Б
Беларуская мова
У
Українська мова
Э
Экономика
Ф
Физика
М
Математика
Ф
Французский язык
Г
География
И
Информатика
М
МХК
О
Окружающий мир
П
Психология
Н
Немецкий язык
О
Обществознание
П
Право
И
История
М
Музыка
Л
Литература
Қ
Қазақ тiлi
Б
Биология
А
Английский язык
Показать больше
Показать меньше
infolenap08cf7
24.10.2021 01:40 •
Информатика
Вычислить y=cosx+ cosx^2++ cosx^3++cosx^n
Ответ:
aida04gmailcom
01.10.2020 20:08
Var y,k,x:real;
n,i:integer;
begin
readln(x);
readln(n);
y:=0;k:=1;
for i:=1 to n do begin
k:=(sin(x))*k;
y:=y+k;
end;
writeln(y);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
danielvinixin
25.03.2020 08:51
Turbo pascal (дан одномерный числовой массив. определить произведение элементов массива, расположенных между максимальным и «центральным» элементами массива (предполагается,...
tan1978
23.04.2023 03:29
1. в целях сохранения нормальной работо модули оперативной памяти необходимо оберегать от: 1) электростатических зарядов при установке 2) магнитных полей 3) света 4)...
Zelikovakasimov
23.04.2023 03:29
Склавиатуры вводится сторона правильного пятиугольника. написать программу, которая подсчитывает его периметр. решение:...
Sem5000
23.04.2023 03:29
Составить программу на языке паскаль. найти количество элементов одномерного массива а (10), больших 10...
safeon
21.09.2020 22:12
Распишите числа от 4 до 10 в пятеричной системе счисления...
alinaLodygina
17.05.2021 15:44
Для каждого из чисел ниже истинно высказывание: не(число меньше 10)и(число нечётное) 1) 23 2) 13 3) 9 4) 6 подробно составте таблицу....
visokolova
04.04.2020 08:22
В какие годы служил Талап Сұлтанбеков?...
angelala123
23.10.2021 20:47
В каком слове второй слог ударный. Рубль. Вьюга. Тяжесть. Позвонить...
averinatatka
05.03.2021 16:06
МОЖЕТЕ ПОЛНОСТЬЮ РЕШИТЬ 2 примера, А НЕ ПРОСТО ОТВЕТ...
Отличница846
29.06.2020 08:09
Какое из чисел 1, 4, 5, 7 является корнем уравнения 21:x = 10 — x...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
n,i:integer;
begin
readln(x);
readln(n);
y:=0;k:=1;
for i:=1 to n do begin
k:=(sin(x))*k;
y:=y+k;
end;
writeln(y);
end.