01 семестр / Лабораторные работы / Все готовые лабы по паскалю / 3 лабораторка / задание 1

1. найти сумму ряда с точностью , общий член которого

• Текст программы:

var

s,a:real;

n:integer;

begin

s:=0;

n:=0;

a:=1;

while abs(a)>0.02 do

a:=(1+cos(sqr(n)))/(exp(n*Ln(2)));

n:=n+1;

s:=s+a;

writeln('s=',s);

readln; readln;

end.

• Результат: s= 2.8678489650E+00