Pascal. Составить программу, в которой с помощью оператора while посчитать сумму ряда тех пор пока член ряда не будет меньше 0.005.

Question

Информатика

Ада

26 октября, 23:14

Pascal. Составить программу, в которой с помощью оператора while посчитать сумму ряда тех пор пока член ряда не будет меньше 0.005.

+4

Ответы (1)

Знаете ответ?

Цветана · Answer 1

Const e=0.005;

var i:integer;

a, s:real;

begin

i:=2;

a:=5 / (i*i-1) ;

s:=0;

while a>=e do

begin

s:=s+a;

i:=i+1;

a:=5 / (i*i-1) ;

end;

writeln ('i = ', i,' s = ', s) ;

end.

Результат:

i = 32 s = 3.59122983870968