Вычислить сумму первых n слагаемых ряда
1/2 + 2/3 + 3/4 + 4/5 + 5/6 + 6/7 для n введённого с клавиатуры

Ответ:

program m;

uses crt;

var

k,s:real;

i:integer;

begin

clrscr;

for i:=1 to 10 do

begin

k:=i/(i+1);

s:=s+k;

end;

writeln(s:2:2);

readkey;

end.

Объяснение: