Question

Нужны 2 программы в паскале ABC.
Задания на фото.

Answer 1

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

= 1 =

begin

 var a, b: integer;

 var x, z: real;

 Write('Введите a, b, x, z: ');

 Read(a, b, x, z);

 var k := 1.0;

 for var d := 1 to b do

 begin

   var c := 0.0;

   for var s := 1 to a do

     c += (d * d + x) / (s ** (3 / 2) + z);

   k *= c

 end;

 Println('К =', k)

end.

= 2 =

begin

 var b, n: integer;

 var x, z: real;

 Write('Введите b, n, x, z: ');

 Read(b, n, x, z);

 var g := 0.0;

 for var c := 1 to b do

 begin

   var p := 1.0;

   for var a := 1 to n do

     p *= (a * a * a + z) / (c * c + x);

   g += p

 end;

 Println('G =', g)

end.