program prog77;
var
x : real;
n: integer;
s: real;
i: integer;
begin
write ('x = ?');
readln(x);
write ('n = ?');
readln(n);
s := 0;
for i := 1 to n do
s := s + i/(x+i);
end;
write ('S = ', s);
end.
Объяснение:
// PascalABC.NET
var x := ReadReal('x =');
var n := ReadInteger('n =');
SeqGen(n, p -> p / (x + p), 1).Sum.Print
program prog77;
var
x : real;
n: integer;
s: real;
i: integer;
begin
write ('x = ?');
readln(x);
write ('n = ?');
readln(n);
s := 0;
for i := 1 to n do
begin
s := s + i/(x+i);
end;
write ('S = ', s);
end.
Объяснение:
// PascalABC.NET
begin
var x := ReadReal('x =');
var n := ReadInteger('n =');
SeqGen(n, p -> p / (x + p), 1).Sum.Print
end.