ических расчетов.

Цикл это последовательность операторов, которая может автоматически выполняться более одного раза. Если количество повторов известно заранее (или может быть однозначно вычислено), используется оператор Цикл_с_параметром (DO «UNTIL»). Если количество повторов неизвестно, применяется оператор Цикл_с_Пред_условием (DO «WHILE»).

Вычислить сумму ряда:

a) с заданной точностью ξ и вывести количество итераций,

b) для 20-ти членов ряда.

Σ = 1/(1*3) + 1/(3*5) + 1/(5*7) + … ξ=0.0001 Ответ: 0.500

Ответы:

var a:real,

i,p,i1,i2,e:longint,

begin

i1:=1, i2:=3,

read(e),

for i:=1 to 20 do

begin

a:=a+1/(i1*i2),

inc(p),

i1:=i1+2, i2:=i2+2,

end,

writeln(Сумма ряда , a:2:e),

writeln(Кол-во итераций ,p),

end.