begin
1.To(8).Select(t->1/(2*t)).Sum.Println;
end.
1.To(8) создает последовательность из чисел 1, 2, 3, .. 8.
.Select(t->1/(2*t)) преобразует каждый элемент этой последовательности по формуле 1/(2t), получая последовательность нужных нам дробей.
.Sum находит сумму этой последовательности, а затем .Prinln выводит результат.
begin
1.To(8).Select(t->1/(2*t)).Sum.Println;
end.
1.35892857142857 Пояснения1.To(8) создает последовательность из чисел 1, 2, 3, .. 8.
.Select(t->1/(2*t)) преобразует каждый элемент этой последовательности по формуле 1/(2t), получая последовательность нужных нам дробей.
.Sum находит сумму этой последовательности, а затем .Prinln выводит результат.