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

Question

Информатика

Степанка

17 октября, 05:07

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

+3

Ответы (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