ответ:ну вот просто посмотри на цифры может ошибся но вроде верно
Объяснение:
var x,z,f,s:real;
i,j,m:integer;
begin
f:=0;
for m:=1 to 4 do
for i:=1 to m do
begin
s:=0;
x:=0.1;
while x<=2.1 do
begin
z:=7;
repeat
s:=s+exp(-i*x)/power((1+x*x),1/i)+cos(x)/sin(z);
f:=f+s;
z:=z+1.5;
until z>13;
x:=x+0.2;
end;
end;
write('F=',f:0:3)
end.
