Консольное приложение: program P; {$APPTYPE CONSOLE} uses Windows, SysUtils;
var xn,xk,dx,x,z,s,p:real; i:integer; begin readln(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.
ответ: 90
Объяснение: