отыскать сумму чисел 1/2+1/4+1/6+1/8+...+1/16составить программку по информатике.безотлагательно!!!

PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018

Внимание! Если программа не работает, обновите версию!

begin

 1.To(8).Select(t-gt;1/(2*t)).Sum.Println;

end.

1.35892857142857

Объясненья

1.To(8) делает последовательность из чисел 1, 2, 3, .. 8.

.Select(t-gt;1/(2*t)) конвертирует каждый элемент этой последовательности по формуле 1/(2t), получая последовательность нужных нам дробей.

.Sum находит сумму этой последовательности, а потом .Prinln выводит итог.