Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
ната555555
15.02.2023 07:13 •
Информатика
Решите циклом. даны действительное число а, натуральное число п. вычислить: s =1 + 1/a2 +1/a4 + +1/a2n-2
Показать ответ
Ответ:
джопер
27.09.2020 17:54
Var
a, s, t: real;
n, i: integer;
begin
readln(a, n);
t := 1;
for i := 1 to n do
begin
s := s + 1 / t;
t := t * a * a;
end;
writeln(s);
end.
аналог не руби для проверки блин
a=2.0
n=4
s=0.0
for i in 1..n
s+=1/a**(2*i-2)
p [a**(2*i-2), (2*i-2)]
end
p s
0,0
(0 оценок)
Популярные вопросы: Информатика
Эва637
25.04.2022 17:57
Разработать приложение, содержащее процедуры, реализующие основные операции над таблицами: формирование таблицы, сортировка или поиск , вывод таблицы. метод линейного выбора и метод...
ooficerova
04.02.2022 21:21
1сор по информатике 6 класс 1 четверть . дайте ...
ilia9999999999
28.06.2022 18:17
с тестам кто решит до конца правильно Циклические алгоритмы. Циклы с параметром. Вложенные циклыhttps://videouroki.net/tests/tsiklichieskiie-alghoritmy-tsikly-s-paramietrom-vlozhiennyie-tsikly.html...
Nikcdi
08.08.2020 17:01
Дана квадратная целочисленная матрица порядка n. сформировать результирующий одномерный массив, элементами которого являются построчные средние арифметические значения нечетных элементов...
qwert050749
18.10.2021 16:57
Из перечисленных предложений укажите высказывания: а) окружностью называется множество всех точек плоскости, расстояние которых до данной точки этой плоскости имеет заданную величину....
камаз9
18.10.2021 16:57
Составить программу вывода на экран среднего арифметического массива состоящего из 15 элементов...
гуманитарий23
31.10.2022 21:53
Написать и выполнить SQL запрос, Вывести на печать фамилии и инициалы, дни рождения с указанием количества лет для студентов, отмечающих день рождения в текущем месяце....
Anastasia5555633
05.10.2020 03:13
Что делать когда телефон выключился и не включается...
Valeria000
21.11.2020 16:12
с решением задачи Дано натуральное число сколько внёс цыфр которые не равны последней У меня вот что получилось:int num, kol;cin num;num = num % 10;if (num == 0) kol = 1; while (num...
natashavoropaeva
05.10.2022 20:55
Алгоритмдер жане программалар помагите...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
a, s, t: real;
n, i: integer;
begin
readln(a, n);
t := 1;
for i := 1 to n do
begin
s := s + 1 / t;
t := t * a * a;
end;
writeln(s);
end.
аналог не руби для проверки блин
a=2.0
n=4
s=0.0
for i in 1..n
s+=1/a**(2*i-2)
p [a**(2*i-2), (2*i-2)]
end
p s