Вход
Регистрация
Спроси здесь
Все
Биология
Информатика
Видео-ответы
Физика
Французский язык
Русский язык
Қазақ тiлi
История
Окружающий мир
География
Обществознание
Алгебра
Психология
МХК
Другие предметы
Английский язык
Українська література
Право
ОБЖ
Немецкий язык
Українська мова
Беларуская мова
Музыка
Химия
Экономика
Геометрия
Литература
Показать все предметы
Показать меньше предметов
Yulichka0829
30.07.2019 19:10 •
Информатика
Дано натуральное число n. вычислить: 1/1^3+1/2^6+1/3^9++1/n^(3*n)
Показать ответ
Ответ:
HoRMaX
03.10.2020 17:51
Var
i, n, j: integer;
a, s: real;
begin
readln(n);
for i := 1 to n do
begin
a := 1;
for j := 1 to 3 * i do
a := a * 1 / i;
s := s + 1 / a;
end;
writeln(s:5:3);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
tatarchenko04
29.09.2019 21:00
Сформировать квадратную матрицу порядка n по заданному образцу (pascal) | 1 2 3 n-2 n-1 n | | 2 1 2 n-2 n-2 n-1 | | 3 2 1 n-4 n-4 n-2| | | |n-1 n-2 n-3 2 1 2 | | n...
16nastia16
29.09.2019 21:00
Фрагмент текста, выражающий законченную мысль _ _ _ а _...
Ochinchin
08.06.2021 21:57
Дан одномерный массив, состоящий из 20 вещественныхэлементов. Найти число элементов массива, целая часть которых четное число. написать программу в питоне, через списки,...
Аня20171502
08.06.2021 21:52
Какое число будет выведено на экран в результате выполнения следующего кода: num=max(1,3,-5,7)+min(-3,6,-8,-1)+abs(-17)?...
помоги270
08.06.2021 21:45
(javascript) Реализовать «виртуального крупье» который с генератора случайных чисел бросает шарик. Далее «крупье» определяет что выпало. На выходе должна быть соответствующая...
bosyakostya
08.06.2021 21:41
Указать последовательность чисел for i in range (1,9)? ...
Spez18
08.06.2021 21:39
Укажите последовательность чисел for i in range (3,11,2)...
Gandondddddd
17.05.2020 12:38
Даны длины сторон треугольника а, в, с. Доказать, что треугольник с такими сторонами существует: а) методом ветвления; б) используя линейный алгоритм...
Ксения1234561040
17.05.2020 12:38
Какие значения примутпеременные Си DBрезультате выполненияпрограммы:Program vv2;VAR A, B, C, D: integer;BeginА = 7;В = 2 * А – 3;IF B A THEN C := B-A ELSE D:= A-B;Writeln...
Sndrey68085
17.05.2020 12:37
с информатикой ! Постройте таблицу учёта товаров в магазине, если известно:...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
КОМПАНИЯ
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ и учителей
Сообщество родителей
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
Установи приложение
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь понять?
Спроси здесь
i, n, j: integer;
a, s: real;
begin
readln(n);
for i := 1 to n do
begin
a := 1;
for j := 1 to 3 * i do
a := a * 1 / i;
s := s + 1 / a;
end;
writeln(s:5:3);
end.