// PascalABC.NET 3.3, сборка 1579 от 18.11.2017// Внимание! Если программа не работает, обновите версию!begin var (x,eps):=(ReadReal('x='),1e-3); var p:=MaxReal; // для предществующего члена ряда var (k,s):=(1,0.0); // гначальные присваивания while true do begin // выход по break var t:=1/(x*x+k*k*k); // очередной член ряда if Abs(t-p)<=eps then break; // достигнута точность eps s+=t; // накопление суммы p:=t; // запомнили значение как "предыдущее" k+=1 // следующее k end; Writeln('S= ',s:0:3)end.
Примерx= 2.43S= 0.2