Ответы на вопрос:
Var n,i: integer; s: real; begin read(n); i: =0; s: =0; while i< n do begin s: =s+1/power(2*i+1,2); i: =1+i; end; write(s); end.
Популярно: Информатика
-
24 бита= . 2,7 мбайт= 10 гбайт= 12 байт= бит 1/32 бит , ! ...
Dailll04.01.2020 23:32 -
8- условие фано (егэ) 1. по каналу связи сообщения, содержащие только...
Ал923к27.02.2020 08:21 -
50 ! написать программу сумма четных чисел от 2 до 100(бейсик)...
nikitacRon07.03.2021 08:27 -
Сколько получится значений, если m=6 в формуле n=2^m? ! ...
ArinaBelman1818.06.2021 08:38 -
1) написать программу, которая предлагает пользователю пройти тест на...
A8L3E1X29.09.2022 06:05 -
1.ввести с клавиатуры массив из девяти элементов найти сумму всех элементов...
Alicewonderr02.03.2020 07:26 -
Paint.NET -те сурет салып оны сакта Суреттен масштабын 800%-га улкеит.Не...
998974452408126.07.2021 21:14 -
Хотя бы одно задание ...
Жамалиддин08.08.2022 23:20 -
Объясните почему мы пишем for x:=1 to N-1 do if a[x]=a[x+1] then inc(k);...
kutluyulovarrr09.02.2021 07:12 -
заполнить таблицу в интернете найти не могу....
annaorlova209.06.2021 15:52