1) 3.01
2) Пропущен знак умножения между 5 и х
Объяснение:
Var
k, n : int64;
ans : real;
Begin
ReadLn(n);
for k:=1 to n do
begin
ans := ans + ((k + 1) / (k*k + 1));
end;
WriteLn(ans);
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.
Результат: