П Р О Г Р А М М А

program Summa;

var n:integer;

S,Z,E: real;

begin

writeln ('ввести точность');

readln (E);

n:=1; Z:=1/6; S:=0;

While abs(z) >=E do

begin

S:=S+Z;

n:=n+1;

Z:=n/((n+1)*(n+2))

end;

writeln ('S=', S:10:2)

end.

Упражнения:

1. Вычислить . Расчет производить до тех пор, пока слагаемое по абсолютной величине не станет меньше заданной точности . Значение задать вводом.

2. Составить программу вычисления суммы . Расчет ввести до тех пор, пока разность между значениями двух соседних членов ряда по абсолютной величине не станет меньше заданной точности . .

3. Составить программу вычисления . Счет окончить, когда разность между значениями двух соседних слагаемых по абсолютной величине станет меньше заданной точности . .

4. Составить программу вычисления суммы . Расчет вести до тех пор, пока разность между значениями двух соседних членов ряда по модулю не станет меньше заданной точности . .

5. Составить программу вычисления величины . Суммирование производить до тех пор, пока слагаемое по абсолютной величине не станет меньше заданной точности . .

6. Найти наибольшее значение функции и значение, при котором оно получено. Значения аргумента x изменяются от 0 до 10 с шагом 0,1.

7. Дано натуральное число m. Найти наименьшее среди чисел , а также сумму этих чисел.

8. Дано натуральное число n. Найти наибольшее среди чисел , а также сумму этих чисел.

9. Дано натуральное число n. Получить все его натуральные делители.

10. Даны действительные, положительные числа a, b, . Последовательности образованы по закону: . Найти первое n такое, что .