Найти сумму ряда

[Alex21]

но неизвестно кол-во слагаемых

var
  i:integer;
  s:real;
begin
  i:=1;
  s:=0;
  while (i*4-3)<=21 do
    begin
      s:=s+((i*4-3)/(i*4-1));
      i:=i+1;
    end;
    WriteLn('sum = ',s:4:2);
    readln;
end.

Вариантов -- куча, выбирай любой

[vit_galina]

Числитель меняется через 4 (i+4), а знаменатель по отношению к числителю на 2 больше. Сумма накапливается пока числитель не будет равен 21. Общий член суммы s:=s+i/(i+2);
Текст программы

Program Summ_ryad;
var
i:integer;
s:real;
begin
i:=1;
s:=0;
while i<=21 do
begin
s:=s+i/(i+2);
i:=i+4;
end;
WriteLn('sum = ',s:4:2);
readln;
end.
ответ: 4.54

[puporev]

Вы имеете дело с обыкновенными дробями, поэтому и ответ должен быть в виде обыкновенной дроби. Для этого нужно создать процедуру сложения обыкновенных дробей, включающую процедуру определения НОД.

[Виктор ladnuyk]

#include<stdio.h>
#include<conio.h>
#include <iostream>
using namespace std;
void main()
{
int n,i;
float p=1,z=1,sum=0,E;
i=1;
printf("Vvedite kolichestvo chlenov rida");
scanf("%f",&n);
printf("Vvedite tochnost:");
scanf("%f",&E);

for(i=1;i<=n;i++)
{
for(int j=1;j<=i;j++)
z = z * -2;
for(int j=1;j<=i;j++)
p = p * 3;
sum = sum+ z/p;
}
float T;

T = sum/E;
printf("\n %f", (int)T*E );
}
_n i i i-степень
нужно найти сумму след ряда когда s= \ -2 / 3
/_
i=1

[Виктор ladnuyk]

_n i i i-степень
нужно найти сумму след ряда когда s= \ -2 / 3
/_
i=1