Задача №27
Найти сумму ряда — -с точностью —e=0,001.
Program cikl_7-
Uses crt-
Var e,s,ss:real-
i,n:integer-
begin
ClrScr-
s:=1- ss:=0- e:=0.001- — n:=1-
while abs(s-ss)>-=e do
begin
ss:=s-
s:=s+1/sqr(2*n-1)-
n:=n+1-
end-
writeln(s:5:3)-
readln-
end.
Категория: Циклы |
Дата: 15.11.12
|