Question

Задание 2Тема: Ряды (циклы, итерации).Операторы DO используются для организации циклических расчетов.Цикл - это последовательность операторов, которая может автоматически выполняться более одного раза. Если количество повторов известно заранее (или может быть однозначно вычислено), используется оператор Цикл_с_параметром (DO «UNTIL»). Если количество повторов неизвестно, применяется оператор Цикл_с_Пред_условием (DO «WHILE»).Вычислить сумму ряда:a) с заданной точностью ξ и вывести количество итераций;b) для 20-ти членов ряда.Σ = 1/(1*3) + 1/(3*5) + 1/(5*7) + … ξ=0.0001 Ответ: 0.500

Answer 1

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.