Войти
Регистрация
Спроси ai-bota
В
Все
Х
Химия
В
Видео-ответы
А
Алгебра
Г
Геометрия
О
ОБЖ
Д
Другие предметы
У
Українська література
Р
Русский язык
Б
Беларуская мова
У
Українська мова
Э
Экономика
Ф
Физика
М
Математика
Ф
Французский язык
Г
География
И
Информатика
М
МХК
О
Окружающий мир
П
Психология
Н
Немецкий язык
О
Обществознание
П
Право
И
История
М
Музыка
Л
Литература
Қ
Қазақ тiлi
Б
Биология
А
Английский язык
Показать больше
Показать меньше
medovd
08.06.2022 09:45 •
Информатика
Pascal найти сумму 35 членов ряда s=2/3+4/9+6/27+8/
Ответ:
StacyZviozdohkina
06.10.2020 13:45
Эта сумма равна 75047317648499524 / 50031545098999707, что приблизительно составляет 1.49999999999999927046.
// PascalABC.NET 3.2, сборка 1485 от 15.06.2017
// Внимание! Если программа не работает, обновите версию!
begin
var k:=BigInteger(3);
var s:=2/k;
for var i:=2 to 35 do begin k*=3; s+=2*i/k end;
Writeln('s=',s)
end.
Результат
s=1.5
0,0
(0 оценок)
Ответ:
Mockingbird666
06.10.2020 13:45
На первом скрине сама программа на втором результат её работы, сумму я округлил чтобы перед запятой было 3 знака и после
0,0
(0 оценок)
Популярные вопросы: Информатика
алишер126
23.04.2020 12:20
Дискретным называют сигнал: принимающий конечное число определённых значений непрерывно изменяющийся во времени который можно декодировать несущий какую-либо информацию...
darinaggg
23.04.2020 12:20
Между населёнными пунктами A, B, C, D, E построены дороги, протяжённость которых (в километрах) приведена в таблице. Определите длину кратчайшего пути между пунктами A и D, проходящего...
Mysteryon
16.08.2021 09:18
Дано натуральное число n . Требуется подсчитать количество цифр данного числа....
borisenkkov
26.10.2020 00:51
Задано двузначное число. найдите среднее арифметическое цифр числа. напишите программу для решения . используя операции div и за правильное !...
av45
06.02.2022 07:39
Запишите число в 8 битную ячейку памяти. число 51...
Elizkap01
24.08.2022 12:13
Установите соответствие 9 номер...
sonya20067
27.12.2022 01:01
Найдите и исправьте ошибки в следующем фрагменте программы: a:=2 b=10 c=2 b=+c for i in range(a, b, c) print(i, end=’,’) Запишите полученный результат после выполнения программы:...
Anastasyu120
08.05.2020 02:29
Разработать приложение, в котором вводить с клавиатуры только заглавные латинские буквы в поле Edit . При повторном вводе разрешенных символов подсчитывать количество повторных...
AutumnIsBest
28.10.2021 11:20
кто объяснит сколько будут равны углы adc и решение...
Gdvbfc
09.07.2020 00:04
6. Решите Это Тест Быстрее...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
// PascalABC.NET 3.2, сборка 1485 от 15.06.2017
// Внимание! Если программа не работает, обновите версию!
begin
var k:=BigInteger(3);
var s:=2/k;
for var i:=2 to 35 do begin k*=3; s+=2*i/k end;
Writeln('s=',s)
end.
Результат
s=1.5