арифметикалық праграссиямен шығады. мына формуламен S_n=(n(a_1+a_n))/2
float a1,an,n,sn;
a1=StrToFloat (Edit1->Text);
an=StrToFloat (Edit2->Text);
n=StrToFloat (Edit3->Text);
sn=(n/2)*(a1+an);
Edit4->Text=FloatToStr(sn);
бірақ мынамен 1-100 сандарының барлығының қосындысын табады
float a1,an,n,sn;
a1=StrToFloat (Edit1->Text);
an=StrToFloat (Edit2->Text);
n=StrToFloat (Edit3->Text);
sn=(n/2)*(a1+an);
Edit4->Text=FloatToStr(sn);
бірақ мынамен 1-100 сандарының барлығының қосындысын табады