Question

Написать программу решения задания в паскале

Answer 1

var
  s: real;
  a, k, b: integer;
begin
  S := 0;
  for k := 1 to 10 do
  begin
    if (k <= 5) then
    begin
      a := 1 + sqr(k);
      b := k;
    end
    else
    begin
      a := sqr(k) - 1;
      b := sqr(k);
    end;
    S := S + (a + b) / (sqr(a) + sqr(b));
  end;
  writeln(S);
end.