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

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

Ответ:

coroleovacarina2013

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 оценок)

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

vickatrasyuk

01.10.2020 23:12

Дана программа: Program Primer; Var M,result : real; Begin Writeln( Введите значения переменной M ); Write( M= ); Readln(M); Result := sqr((1+M)*7); Writeln (result:8:0); Readln;...

5ти

16.07.2020 22:53

Написати програму визначення чи є в масиві розміром 50 елементів заповнених випадковими числами від 1 до 100 хоча б один, що ділиться на 7 без остачі (націло)....

салманчик2008

24.09.2020 10:51

Обьясните , как надо составить программу для калькулятора по примерам: а) 395×52-603×25-960÷24; б) 256×407-33078÷298....

Аккерман11

24.09.2020 10:51

Вычислить сумму натуральных чисел от 1 до n . составить программу нахождения кол-ва делителей числа n ( значение n вводится с клавиатуры )...

alena1706

02.10.2022 10:41

1) Процессор выполняет 3*10243 элементарных операций в секунду. Сколько секунд потребуется процессору для обработки 120 Гбайт информации, если за одну элементарную операцию он...

Кентервильский1монах

17.11.2020 22:57

Решите задания по информатике...

Djanik228

14.08.2020 23:17

Клавіша,R, служить для виконання...

timashev94

09.04.2020 19:11

1. Фотографии полностью занимают СD диск объёмом 700 Мбайт. Сколько времени уйдёт на просмотр всех фотографий, если на просмотр одной фотографии уходит 4 с и каждая фотография...

AlexCameron

18.02.2020 12:50

2.Сколько секунд потребуется модему, передающему информацию со скоростью 56 000 бит/с, чтобы передать цветное растровое изображение размером 640 х 480 пикселей, при условии, что...

missksyushase

09.03.2023 03:47

Чему будет равен информационный объём цифрового звукового стерео файла длительностью 14 секунд при глубине кодирования 24 бит и частоте дискретизации 5120 Гц равен? Выделите правильный...

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

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