Question

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

Answer 1

// 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.