const e=0.00001; var x,x0,xk,h,a,s,y:real; n,i,k:integer; begin write('x0=');readln(x0); write('xk=');readln(xk); h:=0.1; x:=x0-h; n:=round((xk-x0)/h)+1; writeln('¹ x S(x) y(x)'); for i:=1 to n do begin x:=x+h; a:=1; s:=1; k:=0; while abs(a)>e do begin a:=-a*x*x/(2*k+2)/(2*k+3); s:=s+a; inc(k); end; writeln(i:2,' ',x:3:1,' ',s:8:5,' ',sin(x)/x:8:5); end; end.