Циклы.Ряды.

[Златачка]

По заданной формуле члена ряда с номером k составить программу вычисления суммы первых n членов заданного ряда

[Златачка]

Ребята помогите пожалуйста!!!

[Hacker19_90]

sum := 0;
for k := 1 to n do
begin
   zn := (5*sqr(k) + 8*k - 1);
   if zn = 0 then break;
   sum := sum + 4*k/zn;
end;

[TinMan]

var
  n: integer;
  s: double;
begin
  s:= 0;
  for n:=1 to n do s:= s+4*n/(5*n*n+8*n-1);
  writeln(s:8:4)
end;

[BDA]

uses crt;
var
i,n:longint;
s:real;
begin
writeln(`Input n:`);
readln(n);
s:=0;
for i:=1 to n do
s:=s+4*i/(5*i*i+8*i-1);
writeln(`Sum= `,s:0:3);
readln;
end.

[Hacker19_90]

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

var
  n: integer;
  s: double;
begin
  s:= 0;
  for n:=1 to n do s:= s+4*n/(5*n*n+8*n-1);
  writeln(s:8:4)
end;

от n до n? странновато....

[TinMan]

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

от n до n? странновато....

Где ты видишь от n до n?..

[Hacker19_90]

тя пальцем ткнуть?

Код:

var
  n: integer;
  s: double;
begin
  s:= 0;
  for n:=1 to n do s:= s+4*n/(5*n*n+8*n-1);
  writeln(s:8:4)
end;

[TinMan]

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

тя пальцем ткнуть?

Зря ты так, Хакерушка..
Я вижу от 1 до n, вот, что я вижу. А цикл по n, да.
Если тебе странно - лезь в матчасть и попробуй найти запрет так делать..
Или найди мне хоть один компилятор, который в этом месте сделает не так, как я хочу .

[Hacker19_90]

ну так обьясни мне в чём смысл одношагового цикла?

Я вижу от 1 до n,

ты тогда возьми и ещё чуть левее посмотри!