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

Question

Информатика

Анастасьич

15 января, 03:01

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

+5

Ответы (1)

Знаете ответ?

Аникий · Answer 1

Var i:integer; s:real;

begin

i:=1; s:=0;

while i<10 do

begin

i:=i+1;

s:=s+i / (i+1) ;

end;

writeln ('s = ', s:6:4) ;

end.

Результат:

s = 7.4801