Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
444m
22.12.2022 18:24 •
Информатика
Найдите сумму элементов последовательности с точностью 0,001. нужно решение 2)s=1+2/(2*3)-4/(3*9)+6/(5*27)-8/(8*81)+10/(13* ответ: 1.220 ! само решение.
Показать ответ
Ответ:
Anna678901
19.08.2020 16:20
Var e,a,s:real; a1,f,f1,f2,a3,z:integer;
begin
e:=0.001;
s:=1; a:=1; z:=-1;
a1:=0; f1:=1; f2:=1; a3:=1;
while abs(a)>e do
begin
a1:=a1+2;
f:=f1+f2; f1:=f2; f2:=f;
a3:=a3*3;
z:=-z;
a:=z*a1/(f*a3);
s:=s+a;
end;
writeln('s = ',s:5:3);
end.
Результат:
s = 1.220
0,0
(0 оценок)
Популярные вопросы: Информатика
человек416
25.10.2020 06:24
Практическая работа «Условный оператор, оформление» Задача 1 Если с правой стороны от робота стена, остаться на месте. Иначе сделать шаг вправо....
Bagila1234
18.01.2020 02:18
ЗаданиеПостроить класс. РадЛампочек (LampRow), которыйхрани состояние ряда из 8 лампочек в виде символьнойстроки. Цифра 0 обозначает выключенную лампочку,цифра 1-...
ChrisUnte
22.10.2022 11:16
Дан массив целых чисел, заполненный с клавиатуры. Найти количество положительных элементов массива. (При заполнении массива необходимо ввести положительные, отрицательные...
EleonoraPonich
01.03.2023 19:47
А: 320. n: = 1. a: a / 2. n: n + n 10. нет. да. программный код для данной блок-схемы и комментарий...
alekseevvv
27.05.2022 02:57
Создайте программу, которая будет отображать день недели с оператора выбора...
Anastasia1tsv
20.04.2022 09:22
1. найти площадь закрашенной фигуры, если известны стороны треугольника и стороны прямоугольника.2. найти площадь прямоугольного треугольника, если известны его...
deniskarpov02
08.02.2023 15:36
Ть написати код. мова pascal, програма lazarus. 1. дано масив а[1..5]. знайдіть найменший елемент та кількість додатних елементів масиву. 2. дано 20 дійсних чисел....
TemirMamekov
01.03.2022 16:03
Опишите структуру программы...
Игнор1
06.01.2020 21:17
Что означают вот эти названия на батареи телефона(они помечены оранжевым на скрине)...
дывавып
18.02.2021 22:33
Определите достоверность, если при изучении показателей летальности в 2 городских больницах были получены следующие данные: в больнице А показатель летальности (P1)...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
e:=0.001;
s:=1; a:=1; z:=-1;
a1:=0; f1:=1; f2:=1; a3:=1;
while abs(a)>e do
begin
a1:=a1+2;
f:=f1+f2; f1:=f2; f2:=f;
a3:=a3*3;
z:=-z;
a:=z*a1/(f*a3);
s:=s+a;
end;
writeln('s = ',s:5:3);
end.
Результат:
s = 1.220