Решение на 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.
Решение на 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.