Войти Регистрация Спроси ai-bota

Дано целое число n вычислить s=1+1/3+1/7++1/(2n+1)

Ответ:

nikarh

13.08.2020 20:55

Var i,n:integer; s:real;
begin
write('n = '); readln(n);
s:=1;
for i:=1 to n do s:=s+1/(2*i+1);
writeln('s = ',s);
end.

0,0(0 оценок)

Популярные вопросы: Информатика

Анастасия5451

20.07.2021 00:14

) На известном вам языке программирования напишите программу: Даны три целых числа. Определить количество положительных чисел. Код программы:...

Алина11566

29.11.2021 06:12

Почему рекомендуется вручную закрывать файлы, хотя при закрывании программы они закроются автоматически? В каких ситуациях это может быть важно?...

vladik33316

05.11.2021 07:18

Реферат, набранный на компьютере, содержит 160 страниц, на каждой странице 16 строк, в каждой строке 64 символа. Каждый символ кодируется 1 байтом. Определите информационный...

Vetr1

15.10.2021 06:56

Запишите программу на языке PascalABC для вычисления площади ромба, если известны длины диагоналей Н и Р...

katya2562

11.01.2020 06:45

Что входит в описание концепции игры?...

даша3335

20.10.2021 15:46

Найдите значение переменной b после использования данного алгоритма: a := 12 b:= a / 4 a:= b*6+12 b:= a / b*5...

Fenerа

24.05.2020 20:33

не шарю. Створення гри Текстовий квест...

mrrur99

27.06.2022 18:27

С какой целью используют метод end=’\n’? в функций print()?...

oleh09156

10.10.2020 17:02

Составьте программу, которая находит среднее арифметическое двух чисел....

DIlyus

05.12.2020 14:54

дано 16 слов из 6 символов.Если каждый симвор кодируется 1 байтом, то какое минимальное количество бит понадобится для кодирования всех слов?...

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку