//PascalABC.Net 3.1.0.1200
var
x0, xk, h, e, x, a, s: real;
i: integer;
begin
readln(x0, xk, h, e);
x := x0;
repeat
a := 1 / 2 / 3;
s := a;
i := 0;
repeat
i := i + 1;
a := a * (-1) * x * x / (2 * i + 1) / (2 * i);
s := s + a;
until abs(a) < e;
writeln(s:15:5, ' ', (sin(x) / x):15:5);
x := x + h;
until x >= xk;
end.
1)224•64=14336-строк во всей книге
2)14336•72=1032192-смволов во всей книге
3)1032192•16=16515072- информационый объём
<span>s=15, i=0
_________________________</span>