Дано число а (1 < а ≤1,5). Среди чисел 1+1/2, 1+1/3, ... найти первое, меньшее а с++

#include <iostream>

#include <cmath>

using namespace std;

signed main() {

   double one = 1.0;

   double a;

   cin >> a;

   int l = 2, r = 10000;

   while(l <= r){

       int m = (l+r)/2;

       if(one + one/m < a) r = m - 1;

       else l = m + 1;

   }

   cout << one + one/l;

}

begin

k: =1;

sumf: =1; {так как для i1 sum=1}

for i: =1 to n do (n-колличество членов, вводится с клавиатуры)

begin

k: =k*i;

f: =k;

sumf: =sumf+1/f;

end;

(while)

function sumw(i: integer): real;

begin

k: =1;

i: =1;

sumw: =1;

while i< =n do

begin

k: =k*i;

f: =k;

sumw: =sumw+1/f;

end;

(repeat)

function sumr(i: integer): real;

begin

k: =1;

i: =1;

sumr: =1;

repeat

k: =k*i;

f: =k;

sumr: =sumr+1/f;

i: =i+1

until  i< n;

var x,y,nod,nok: longint;

begin

read(x,y);

a: =x; b: =y;

while (a> 0) and (b> 0) do

if a> b then a: =a mod b

else b: =b mod a;

nod: =a+b;

nok: =(x div nod)*y;

write(nok);

end;