Question

Помогите, пожалуйста. Как записать и решить это выражение в Паскале? (Задание 4)

Answer 1

===== PascalABC.NET =====

begin

 var F: integer-> integer := k -> Range(2, k).Product;

 var p := 1.0;

 for var j := 2 to 4 do

 begin

   var s := 0.0;

   for var k := -1 to 1 do

     s += 2 ** k / (Abs(k) + F(j));

   p *= s  

 end;

 Print(p)

end.