Вычислите в цикле Repeat...until

Question

Вычислите в цикле Repeat...until

---

Answer 1

Var i:integer; s:real;
begin
i:=1; s:=0;
repeat
s:=s+i/(i+1);
i:=i+1;
until i=7;
writeln('s=',s);
end. 

Результат:
s=4.40714285714286

Answer 2

Var a, b: integer;
s: real;
begin
a:=1;
b:=2;
s:=0;
repeat
s:= s+a/b;
a:=a+1;
b:=b+1;
until b<8;<br>write(s);
end.