Question

(35 баллов), надо сделать программу, обязательно в Pascal

Answer 1

Ответ:ну вот просто посмотри на цифры может ошибся но вроде верно

Объяснение:

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.