Составьте программу вычисления суммы 2/3+3/4+4/5+...+10/11 с использованием оператора...

Question

Составьте программу вычисления суммы 2/3+3/4+4/5+...+10/11 с использованием оператора while

Comments

Так, вы можете скинуть программу??

Answer 1

Var i:integer; s:real;
begin
i:=1; s:=0;
while i<10 do<br> begin
 i:=i+1;
 s:=s+i/(i+1);
 end;
writeln('s = ',s:6:4);
end.

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