Pascal !!! Паскаль !!! Пожалуйста, выполните задание в паскале и если не сложно , то...

Question

Pascal !!! Паскаль !!! Пожалуйста, выполните задание в паскале и если не сложно , то можете нарисовать блок-схему .

---

Answer 1

Ответ:

var

x,p:real;

i:integer;

begin

   x:=0.01;

   p:=1;

 for i := 1 to 15 do

 begin

 p:=p * (1 - arctan(x/sqrt(1-sqr(x)))) / (2+sqrt(x));

 x:=x+0.0253;

 end;

 

 writeln(p:0:20);

end.

Объяснение:

---

---