Написать программу в паскале " найти сумму ряда 1-1/3+1/5-1/7+ с точностью до ԑ=0,0001, т.е суммирование прекращается, если очередной элемент по модулю меньше ԑ
Danil111234
3
01.10.2019 20:40
6
Другие вопросы по теме Информатика
MrReizer
12.07.2019 03:40
lolik22888
02.06.2019 05:10
111yo11111111111
02.06.2019 05:10
mariiiiii222
02.06.2019 05:10
supervip2001
02.06.2019 05:10
irinalove2
02.06.2019 05:10
NikaSempay
02.06.2019 05:10
vyyy73ozxnyb
02.06.2019 05:10
24211626l
02.06.2019 05:20
MrKot007
02.06.2019 05:20
Популярные вопросы
- Можно ли пить воду из болота.обоснуй свой ответ...
2 - Решите уравнения 15 8\19 + х=4 5\14+ 1 9\14...
3 - Составить верные равенства из числовых выражений 625: 25+17 (160+9): 13 144:...
3 - Сообщение о прототипе робинзона крузо. автор даниел дефо...
2 - Морфемный разбор: расположиться справа,изредка прикосаться,запереть наглухо,вытереть...
1 - Жайте опредиленияпонятиям: что такое вади,геосинкленаль,кампос,лавразия,азимут...
1 - Как воспитывались леонтьевские дети...
2 - Не находя корней квадратного уравнения х²-4х-7=0, найдите сумму квадратов его...
3 - Визбыток раствора соляной кислоты внесли 8,4 г карбоната магния. рассчитайте...
3 - Укакого слова не такое строение,как у слова записка? вывеска,строчка,опилки,завязки...
2
begin
var (s, i, z) := (0.0, 0, 1);
var a: real;
repeat
Inc(i);
a := 2 * i - 1;
s += z / a;
z := -z;
until 1 / a < 1e-4;
s.Println
end.
0.785448153398948