4 года назад

Дан ряд 3/4+4/9+5/16+... Найти сумму 150 первых членов ряда

1 ответ:

0 0

$\displaystyle S=\sum_{i=1}^{150} \frac{i+2}{(i+1)^2}$

// PascalABC.NET 3.1, сборка 1192 от 07.03.2016
begin
Writeln(Range(1,150).Select(i->(i+2)/sqr(i+1)).Sum)
end.

Результат выполнения программы:
5.23613653594721

Читайте также

Какие из этих фраз можно считать определением модели? это уменьшенная копия оригинала это объект, который мы исследуем для того,

Елена Волк [55]

это уменьшенная копия оригинала

это копия оригинала, обладающая всеми его свойствами

0 0

4 года назад

1) Исполнитель Вычислитель имеет следующую систему пронумерованных команд: 1. вычти 3 ;2. умножь на 2 .Запишите порядок команд а

Сергей Белявский [7]

5*2=10
10-3=7
7*2=14
14-3=11

0 0

4 года назад

Подберите примеры ситуаций (из повседневной жизни, художественной литературы, кино), в которых информация: А) СОБИРАЕТСЯ Б) КО

Никитач

А) информацию из разных учебников пишешь в один конспект
б) копирование на флешку
в) восприятие информации органами чувств и ее обработка мозгом
г) разговор
д) краткий пересказ
е) сидишь на уроке и принимаешь информацию от учителя в своей голове
ж) пишешь книгу
з) сжигаешь газету
и) учишь стих
к) систематизация по категориям
л) подсчет слов в предложении
м) любой поиск в поисковой системе

0 0

4 года назад

Паскаль 1. В двумерном массиве вычислить A(4,4) найти наибольший элемент, лежащий на главной диагонали. 2. Дан массив A(5,5). Дл

паша никита

1.
var a:array [1..4, 1..4] of integer; i, j, max: integer;
Begin
for i := 1 to 4 do
begin
for j := 1 to 4 do
read(a[i][j]);
readln;
end;
max := a[1][1];
for i := 2 to 4 do
if max < a[i][i] then max := a[i][i];
writeln(max);
End.

2.
var a:array [1..5, 1..5] of integer; i, j, m, sum: integer;
Begin
for i := 1 to 5 do
begin
for j := 1 to 5 do
read(a[i][j]);
readln;
end;
readln(m);
sum := 0;
for i := 1 to 5 do
if (m - i > 0) and (m - i < 6) then
sum := sum + a[i][m - i];
writeln(sum);
End.

3.
Const N = 5;
var a:array [1..N, 1..N] of integer; i, j, max: integer;
Begin
for i := 1 to N do
begin
for j := 1 to N do
read(a[i][j]);
readln;
end;
max := a[1][N];
for i := 2 to N do
if (max < a[i][N + 1 - i]) then
max := a[i][N + 1 - i];
writeln(max);
End.

4.
Const N = 5;
var a:array [1..N, 1..N] of integer; i, j, count: integer; sum: real;
Begin
for i := 1 to N do
begin
for j := 1 to N do
read(a[i][j]);
readln;
end;
sum := 0;
count := 0;
for i := 1 to N do
if (a[5][i] mod 2 = 1) then
begin
sum := sum + a[5][i];
inc(count);
end;
sum := sum / count;
writeln(sum);
End.

5.
var a:array [1..4, 1..4] of integer; i, j, upper_sum, lower_sum: integer;
Begin
for i := 1 to 4 do
begin
for j := 1 to 4 do
read(a[i][j]);
readln;
end;
upper_sum := 0;
lower_sum := 0;
for i := 1 to 4 do
begin
for j := i + 1 to 4 do
upper_sum := upper_sum + a[i][j];
for j := 1 to i - 1 do
lower_sum := lower_sum + a[i][j];
end;
writeln(upper_sum);
writeln(lower_sum);
End.

0 0

4 года назад

а) перечислите компонеты электронного письмаб) в чём отличие телеконфиренции от электронной почты?в) что располагается на FTP-се

Татьяна2332 [4]

А) Тема письма, сам текст письма (тело), получатель (кому) и отправитель (от кого)

Б) Телеконференция позволяет обмениваться звуковой и видео информацией, а электронная почта - только графической и текстовой.

В) Файлы

0 0

4 года назад