Войти
Регистрация
Спроси ai-bota
В
Все
У
Українська література
Г
Геометрия
Д
Другие предметы
Э
Экономика
Г
География
О
ОБЖ
М
Математика
М
МХК
Х
Химия
Қ
Қазақ тiлi
Л
Литература
У
Українська мова
О
Обществознание
Ф
Физика
А
Английский язык
А
Алгебра
И
История
Б
Беларуская мова
Б
Биология
М
Музыка
П
Право
И
Информатика
П
Психология
В
Видео-ответы
Н
Немецкий язык
Ф
Французский язык
О
Окружающий мир
Р
Русский язык
Показать больше
Показать меньше
Djunisova
13.07.2022 11:39 •
Информатика
Впаскале . дано натуральное число n. вычислить : s=1/3^2+1/5^2+1/7^2++1/(2n+1)^2
Ответ:
aidafarhadova
03.10.2020 08:55
//Pascal ABC.NET v3.1 сборка 1172
Var
s:real;
n,i:integer;
begin
readln(n);
for i:=1 to n do
s:=1/sqr(2*i+1);
writeln(s);
end.
Пример ввода:
1
Пример вывода:
0.111111111111111
0,0
(0 оценок)
Популярные вопросы: Информатика
sofi190
23.03.2022 11:46
Написать программу в си++. такая : если сумма трёх попарно различных действительных чисел x,y,z меньше единицы, то наименьшее из этих трёх чисел заменить полусуммой...
жизньпрекрасна2
23.03.2020 17:31
15 какая общепринятая кадровая частота сменяемых кадров за единицу времени в телевидении и кинематографе ?...
хомяк2005
23.03.2020 17:31
Есть : подсчитать количество “счастливых” шестизначных автобусных билетов, т. е. таких, в номерах которых сумма первых трех цифр равна сумме трех последних. необходимо...
Аня276541
23.03.2020 17:31
Как разместить текст в несколько столбцов?...
Marshmelloo
30.03.2023 13:09
Как задается точка на экране? * расстоянием от верхнего края расстоянием от левого края двумя координатами тремя координатами Как изменяется координата на экране? *...
lelyabolsun
08.10.2020 18:45
НАДО НАЙТИ ОШИБКИ И ИСПРАВИТЬ ИХ...
kira1180
25.05.2021 13:13
Август и Беатриса играют в игру. Август загадал натуральные числа от 1 до n. Беатриса пытается угадать это число, для этого она называет множества натуральных чисел....
Viktor2017Kot
28.03.2020 12:50
Информатика 7 класс Опишіть, які виникають проблеми для повноцінного використання технології інтернету речей....
ЛблюЗнания
15.04.2021 14:54
2. Определите, что будет напечатано в результате работы следующей программы. Var s,k: integer; Begin s := 0; for k := 6 to 10 do s := s+10; writeln(s); End....
katongop0107l
24.05.2023 01:25
Сколько раз повторится цикл for k in range(10): *варианты ответа91011нет верного ответа...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Var
s:real;
n,i:integer;
begin
readln(n);
for i:=1 to n do
s:=1/sqr(2*i+1);
writeln(s);
end.
Пример ввода:
1
Пример вывода:
0.111111111111111