Бесконечные числовые последовательности. Суммирование бесконечных числовых последовательностей

Задача 1. Дано положительное А. найдите среди чисел 1+1/3, 1+1/3+1/5, 1+1/3+1/5+1/7, … первое большее или равное А.

Идея решения:

На каждом шаге нужно вычислять число x и проверять стало ли оно больше А, процесс закончится когда число достигнет А.

Read(A);

X:=0; i:=1;

repeat

X:=x+1/i;

i:=i+1;

until x>A;

Writeln (x);

Задача 2. Найти все числа меньшие А, сумма квадратов цифр которых кратна М.

Для каждого числа меньшего А нужно находить сумму квадратов цифр числа и проверять ее кратность М. (Используется конструкция вложенных циклов)

Read(A,M);

X:=1;

While x<=A do

Begin  n:=x; s:=0;

              repeat

                          y:= n mod 10;

                          s:=s+y*y;

                          n:=n div 10;

              until n = 0;

  if s mod m =0 then writeln(x);

  X:=x+1;

End;

Суммирование бесконечных числовых последовательностей 

Задача 3. Дан числовой ряд и некоторая малая величина Е. Найти сумму числового ряда с точностью Е, общий член которого задан формулой: 

Идея решения:

На каждом шаге нужно вычислять элемент ряда а и добавлять его к сумме, процесс закончится тогда, когда элемент станет меньше Е.

Program z1;

Var a,s,e:real; i:integer;

begin

S:=0;i:=1;

repeat

a:=1/sqrt(3*i-1);

S:=s+a;

i:=i+1;

until a<e;

Writeln (‘s=‘,s:10:6);

End.

Задания практической работы:

 Дан числовой ряд и некоторая малая величина Е. Найти сумму числового ряда с точностью Е, общий член которого задан формулой: