Найти сумму чисел..

{
double b=0,S=0,a;
a=Edit1->Text.ToDouble();
for (b=1;b<=a;b+=1)
S=S+b;
if(1./b>a)
{S=S+1./b;
Label1->Caption=S;}
else
Label1->Caption="Нет решения";
}

#include <iostream>
#include <cmath>
using namespace std;
 
double S(double Smax, long &k)
{
    double sum = 0;
    double ak  = 1;
    while(sum < Smax)
    {
        sum += ak;
        k    = k + 1;
        ak   = 1.0/k;
    }
    return sum;
}
 
int main()
{
    long k = 0;
    double A;
    while(true)
    {
        k = 1;
        cout<<"Enter A : ";cin>>A;
        cout<<"S = "<<S(A, k)<<endl;
        cout<<"S exids A starting element : "<<k<<endl;
    }
    return 0;
}

#include <iostream>
#include <cmath>
using namespace std;
 
int main()
{
    long k;
    double A, sum, ak;
    while(true)
    {
        k = 1;
        ak  = 1;
        sum = 0;
        cout<<"Enter A : ";cin>>A;
        while(sum < A)
        {
            sum += ak;
            k    = k + 1;
            ak   = 1.0/k;
        }
        cout<<"S = "<<sum<<endl;
        cout<<"S exids A starting element : "<<k<<endl;
    }
    return 0;
}