Написать в pascalabc. вычислите значение суммы n членов следующего ряда: k/1 + k/3 + k/ n> 0, k> 0 - вводится с клавиатуры.

Решение на PascalABC.NET:

var  

 N: integer;

 K: double;

begin

 write('Введите N:');

 readln(N);

 write('Введите K:');

 readln(K);

 write(

   System.Linq.Enumerable

     .Range(0, N)

     .Sum(t -> K / (1 + t *2)));

end.