Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
HOUSEMAN222
20.02.2022 21:21 •
Информатика
Дано действительное число х. вычислить x-x^3/3! +x^5/5! +x^9/9! -x^11/11! +x^13/13!
Показать ответ
Ответ:
Яхшибой
05.10.2020 16:03
Var
x, s, a: real;
i: integer;
begin
write('Введите x');
readln(x);
a := x;
s := a;
for i := 1 to 6 do
begin
a := a * (-1) * x * x / (2 * i) / (2 * i + 1);
s := s + a;
end;
writeln('S = ', s:10:3);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
matveq888
09.06.2022 16:15
Чертёжнику был дан для исполнения следующий алгоритм: Сместиться на вектор (–4, 8) Повтори 4 раза Команда1 Сместиться на вектор (–2, –5) Сместиться на вектор...
Даша0109
28.09.2021 13:40
Даны два целых числа a и b. напишите программу, которая находит среднее арифметическое квадратов всех целых чисел от a до b входные данные: в первой строке вводятся два...
concede
14.05.2023 04:01
Написать программу для решения слу методом жордана-гаусса. программа на вход получает n - количество уравнений, затем сами уравнения, каждое - в формате строки. пример:...
ibrohim3
07.02.2023 17:10
до нужно ввести 9 цифр и посчитать их сумму, то есть не количество цифр! а именно их сумму! и тоже самое с другими цикла! !...
Даня1233221
18.12.2022 20:30
Для excel. даны 25 целых чисел. подготовить лист для определения максималь- ного четного числа из интервала 100—200 (известно, что такие четные числа среди заданных есть)....
hamzmxn66
30.11.2020 02:30
Решите уравнение: |3x+2|=4 а)2/3 б)2/3; -2 в)-2 г)0...
vladyakovlev22
12.05.2020 10:33
Дан текст: «наша таня громко плачет». к тексту (в порядке следования слов) применены команды: выделить слово, вырезать, выделить слово, копировать, выделить слово, вырезать,...
sveta4841
12.05.2020 10:33
Задана матрица f(3,3). определить, равны ли все элементы первого столбца соответствующим элементам главной диагонали. если нет, то поменять их местами.(60 ) на с# написать...
Puma20050412
03.02.2023 07:16
Компьютерная папка,напишите что-нибудь полезное и интересное 20...
rada182
10.08.2020 15:57
1. определите значение переменной «a» после выполнения фрагмента программы: a : = 10; b : = 5; if not (a 5) then a : = 5; ответ: 2. определите значение переменной «a»...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
x, s, a: real;
i: integer;
begin
write('Введите x');
readln(x);
a := x;
s := a;
for i := 1 to 6 do
begin
a := a * (-1) * x * x / (2 * i) / (2 * i + 1);
s := s + a;
end;
writeln('S = ', s:10:3);
end.