Question

вычислить сумму ряда 1/2+2/3+3/4+4/5+5/6+6/7+7/8+8/9+9/10+10/11 с помощью цикла со счетчиком for

Answer 1

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.