Вычислить значения z, соответствующие каждому значению x (xn=<x=<xk, шаг изменения x равен dx) по формуле z=sin(cos(x)).Определить сумму значений z>x и произведение z=<x.На экран выводить каждую третью пару значений x и z.Контрольный расчёт провести при xn=-3.14,xk=-3.14,dx=0.314.

// DELPHI

Консольное приложение:program P;{$APPTYPE CONSOLE}uses Windows, SysUtils;var xn,xk,dx,x,z,s,p:real; i:integer;beginreadln(xn,xk,dx);x:=xn-dx;s:=0; p:=1;for i:=1 to round((xk-xn)/dx)+1 do begin x:=x+dx; z:=sin(cos(x)); if z>x then s:=s+z else p:=p*z; if i mod 3=1 then writeln(i,' ',x:5:3,'  ',z:7:5); end;writeln('s = ',s,'  p = ',p);end.Пример:-3.14 3.14 0.3141 -3.140  -0.841474 -2.198  -0.553777 -1.256  0.3047010 -0.314  0.8140613 0.628  0.7237416 1.570  0.0008019 2.512  -0.72309s =  1.542042441906335e+00  p = -1.119447732428404e-05