Pascal Code:
program lab7; const e=0.001; x=3; var x1,s,t:real; n:integer; begin x1:=x/3; n:=0; t:=x1; s:=t; while abs(t)>e do begin n:=n+1; t:=t*x1*x1/(2*n)/(2*n+1); s:=s+t; end; writeln('S=',s:0:4); write('sh(x/3)=',(exp(x1)-exp(-x1))/2:0:4); end.