Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
OkumRin
24.10.2021 07:44 •
Информатика
Написать программу, вычисляющую значение функции: y = cosx+cos2x+cos3x+…+cos30x
Показать ответ
Ответ:
art021220001
30.08.2020 20:57
//Pascal ABC.NET v3.1 сборка 1172
Var
y,x:real;
i:integer;
begin
readln(x);
for i:=1 to 30 do
y:=y+cos(x*i);
writeln(y);
end.
Пример ввода:
1
Пример вывода:
-1.32716415333901
0,0
(0 оценок)
Ответ:
Katya14340
30.08.2020 20:57
// PascalABC.NET 3.1, сборка 1192 от 07.03.2016
begin
var x:=ReadReal('x=');
Writeln(Range(1,30).Select(i->cos(x*i)).Sum)
end.
Тестовое решение:
x= 0.385
-2.41774673342197
0,0
(0 оценок)
Популярные вопросы: Информатика
cheknutyi
22.04.2023 17:53
По паскалю, нужно продолжить программу есть : проверьте можно ли построить треугольник из отрезков с длинами сторон x, y и z, и, если можно, то является ли он тупоугольным...
timkazhimov
18.03.2022 14:11
Укажите те пункты, в которых условный оператор записан правильно if a b then min:=a; max:=b else D:=c;if (a b) and (a c) then write(a);if (a b) then begin min:=a; max:=b;...
динара1316
23.07.2022 07:24
Определить сколько чисел от 10 до 1000 включительно, в которых есть повторяющиеся цифры.( на паскале)...
Zhanar161
29.04.2022 07:21
Нужно записи в тетрадь по обществознание Боголюбов 7 класс 3 пораграфу тема:Экономика и её основные участники...
mathmatic2882
15.09.2020 19:37
157 (46-x) - 193Выберите из данн...
Евангелина12345
12.07.2021 06:53
Угол ACB разделен лучом CO на два угла. Угол ACO=30°, угол OCB в 1,5 раза больше угла ACO. Найдите угол ACB...
support38
26.03.2020 06:25
решите задачу .По каналу связи за 1/3 часа была передоно 3000 Кбайт информации .Определить скорость передачи информации ....
20042007rbn
26.03.2020 06:25
Найди амлитуду колебаний, период колебаний, начальную фазу по закону материальной точки x=0.2cos(2t+п/2) ....
аааа287
03.04.2020 01:21
6. На небольшой капле воды не может находиться заряд (e элементарный электрический заряд)А. +3 е в е3С. -6e. D. 9е....
zhenyakozyrkova
03.04.2020 01:21
Диагональ параллелограмма образует с его сторонами углы 65°и 51°. Найдите углы параллелограмма....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
Var
y,x:real;
i:integer;
begin
readln(x);
for i:=1 to 30 do
y:=y+cos(x*i);
writeln(y);
end.
Пример ввода:
1
Пример вывода:
-1.32716415333901
begin
var x:=ReadReal('x=');
Writeln(Range(1,30).Select(i->cos(x*i)).Sum)
end.
Тестовое решение:
x= 0.385
-2.41774673342197