ответ: 3.01
Объяснение:
var
k, n:integer;
s : real;
begin
write('Введите n: ');
ReadLn(n);
for k:=1 to n do
s:= s + (k+1) / (k*k+1);
Writeln('S = ', s:5:2);
end.
ответ: 3.01
Объяснение:
var
k, n:integer;
s : real;
begin
write('Введите n: ');
ReadLn(n);
for k:=1 to n do
s:= s + (k+1) / (k*k+1);
Writeln('S = ', s:5:2);
end.