Ответ(ы) на вопрос:
Гостьvar s: real;
begin
write('Введите n: ');
var n := ReadInteger;
s:=1;
for var i:=0 to n do begin
s:=s+1/(2*N+1);
end;
writeln('Ответ ', s);
end.
Гость// PascalABC.NET 3.0, сборка 1150 от 22.01.2016
begin
Writeln(Range(0,ReadInteger('N=')).Select(x->1/(2*x+1))
.Aggregate(0.0,(x,y)->x+y))
end.
Тестовое решение:
N= 10
2.1808745777786
Не нашли ответ?
Похожие вопросы