Составить программу вычисления и печати суммы всех членов последовательности, меньших...

Question

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

Answer 1

// PascalABC.NET 3.2, сборка 1374 от 10.01.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var i:=1;
  var s:=0.0;
  while true do begin
    var t:=i/(i+2);
    if t>=0.8 then break;
    s+=t; i+=1
    end;
  Writeln('s=',s)
end.

Результат
s=4.34206349206349

Answer 2

#include

using namepspace std;

int main() {
  for(int i = 1, s = 0; (i/i+2) < 0.8; s+=(i/i+2), i++);
  cout << s << endl;<br>}