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

[11111]

Люди помогите пожайлуста решить следующую задачу.
Найти сумму 35 членов ряда S=2/3+4/9+6/27+8/81+....
Тут как я понимаю надо использовать For i:=1 to 35 do, а за а обазначить 2/3. Помогите пожайлуста

[kommunist]

на delphi или в pascal?

[kommunist]

вот попробуй правильно или нет незнаю на скорую руку делал
uses crt;
const a=2;
b=3;
var s,y:real; x:integer;
begin
clrscr;

y:=a/b;
for x:=1 to 35 do
s:=(a+a)/sqr(b);

writeln('s=',s:4:4);
readln;
end.

[Alex21]

Сумма i от 1 до 35 = (2*i)/(3^i)

var i:integer;
    sum:real;
 
function f(x:integer):real;
begin
  f:=(2*x)/(exp(ln(3)*x));
end;
 
begin
  sum:=0;
  for i:=1 to 35 do
    begin
      sum:=sum+f(i);
    end;
  writeln('Sum = ',sum:6:2);
  Readln;
end.

[11111]

а не могли бы вы помочь написать формулу для s S=1/3+5/7+9/11+...+21/23

[Alex21]

Простые числа.
В числителе - нечетные
В знаменателе - четные

[11111]

везде - нечётные

[bill]

Сообщение от 11111

а не могли бы вы помочь написать формулу для s S=1/3+5/7+9/11+...+21/23

Общий случай.

program sd;
uses crt;
var a:real;
s,i,z,n:integer;
begin
read(n);
a:=0;i:=1;
for z:=1 to n do
begin
a:=a+i/(i+2);
i:=i+4;
end;
write(a);
end.

[11111]

тут мгне нужно найти сумму

[Maslan]

 
Program Summ;
Var i:integer;s:Real;
Begin
s:=0;
For i:=0 to 5 do
 s:=s+(1+4*i)/(3+4*i);
WriteLn('Sum=',s:10:3);
Readln;
end.