Ответ:

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.

Объяснение: