Задача 73461 Вычислить на языке паскаль S = 1 / sqrt...
Условие
Решение
```pascal
program SeriesSum;
uses Math;
var
i: Integer;
S: Real;
begin
S := 0;
for i := 1 to 199 step 2 do
S := S + 1 / sqrt(i * (i + 2));
writeln(S:0:2);
end.
```
Данный код создает переменные i и S для хранения текущего нечетного числа и текущей суммы, соответственно. Затем он инициализирует переменную S как 0 и использует цикл 'for' для перебора всех нечетных чисел от 1 до 199 (включительно). Шаг равен 2, поэтому на каждой итерации значение i увеличивается на 2.
На каждой итерации цикла текущий элемент ряда вычисляется как 1 / корень квадратный из (i * (i + 2)), и эта величина прибавляется к текущей сумме.
После выполнения цикла конечное значение S (т.е. сумма всего ряда) выводится на экран с двумя знаками после десятичной точки.