Меню сайта

Задача №44

Найти сумму ряда — -с точностью —e=0,001.


Program ciklp_7-

Uses crt-

Var e,s,ss:real-

i,n:integer-

begin

ClrScr-

s:=1- ss:=0- e:=0.001- — n:=1-

repeat

ss:=s-

s:=s+1/sqr(2*n-1)-

n:=n+1-

until abs(s-ss)&lt-e —

writeln(s:5:3)-

readln-

end.

Категория: Циклы | Дата: 10.11.12

Меню раздела
Блок