Составьте программу (на алгоритмическом языке Паскаль) для вычисления суммы ряда S=1/2^2+3/4^2+5/6^2+7/8^2+9/10^2+... с точностью до члена ряда, не превышающего по абсолютной величине 0,001.

program sum;uses crt;var k: integer; s: real;begin k:=1; s:=0; while k/sqr(k+1)>0.001 do begin s:=s+k/sqr(k+1); inc(k,2); end; writeln('Сумма ряда = ', s:0:4); readlnend.

не вижу особой разницы

Введи свою программу в PascalABC.NET и увидишь ошибки.

i:integer;b, sum:real;BEGINi:=0;while (b>=0.001) dobegini:=i+1;b:=i/((i+1)*(i+1));sum:=sum+b;end;writeln(sum);END.