program m;uses crt;var k,s:real; i:integer;beginclrscr;for i:=1 to 10 dobegink:=i/(i+1);s:=s+k;end;writeln(s:2:2);readkey;end.
От одного до четырёх.