Задача №39
Найти сумму ряда — -с точностью —e=0,001.
Program ciklp_2-
Uses crt-
Var e,s,ss:real-
i,n,fact:integer-
begin
ClrScr-
S:=2- ss:=0- e:=0.001- fact:=1- n:=1-
repeat
ss:=s-
for i:=1 to n do
fact:=fact*i-
s:=s+1/fact-
n:=n+1-
until abs(s-ss)<-e-
writeln(s:5:3)-
readln-
end.
Категория: Циклы |
Дата: 11.11.12
|