Составить программу вычисления и печати суммы всех членов последовательности, меньших 0.8: S=1/3+2/4+3/5…..+i/(i+2)

Вопрос школьника по предмету Информатика

Составить программу вычисления и печати суммы всех членов последовательности, меньших 0.8:
S=1/3+2/4+3/5…..+i/(i+2)

Ответ учителя по предмету Информатика

// i/(i+2) = 0.8  -> 0.2i=1.6 -> i=8 

var i: integer;

     s: real;

begin

  s:=0; i:=1;

  repeat

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

    i:=i+1;

  until i=8;

  writeln(‘сумма ряда: ‘,s);

end.