Составить блок-схему и программу для решения задач. Вычислить ...

Дмитрий

Делитель (d) увеличивается на d2
В свою очередь, d2 увеличивается на 2

program raf105;

var

 n,i,d,d2: integer;

 k: real;

begin

 write('N = ');

 readln(n);

 d:= 1;

 d2:= 1;

 for i:=1 to n do

 begin

   d2:= d2+2;

   d:= d+d2;

   k:= k + 1/d;

 end;

 writeln('K = ',k);

end.

PascalABC